以下のようなコードが 5.14 からちゃんと die するようになっているっぽい。しらなんだ。 それ以前だと、エラーが握りつぶされて僕らが死ぬ。 use strict; use warnings; sub foo { local $@; eval { die "oops!" }; die $@ if $@; } sub bar { local $@; ev…

やめといたほうがいい

coderef から名前を取りたいなーって時がごく稀にあるわけですが、そういうときにどうするかという話。 anon のやつは __ANON__ になる。perl 5.12.0 からは B でとれるけど、それ以前の場合は使えないので、Devel::Peek 使っとけばいいっぽい。 気のせいで…

http://d.hatena.ne.jp/gfx/20111119/1321681656 http://tokuhirom.hatenablog.com/entry/2011/11/19/152621 use 5.14.0; package Class::Accessor::Mouse { use Mouse; sub import { my ($class, %args) = @_; my $meta = Mouse->init_meta(for_class => sc…

お豆