2010-11-22から1日間の記事一覧
*注:追記あり今日テストを走らせていて、おかしな挙動を発見したので記録します。 use strict; use Test::More tests => 4; use Class::MOP (); { package Foo; sub bar { 1 } } my $code = Foo->can('bar'); my ($pkg_name,$code_name) = Class::MOP::get_…
*注:追記あり今日テストを走らせていて、おかしな挙動を発見したので記録します。 use strict; use Test::More tests => 4; use Class::MOP (); { package Foo; sub bar { 1 } } my $code = Foo->can('bar'); my ($pkg_name,$code_name) = Class::MOP::get_…