Perl で拡張可能なモジュールをかくときに s/^\+// ? $_ : __PACKAGE__ . '::Plugin::$_' とした方がいい理由 - tokuhirom's blog

Data::Validator のコードの中にこんなのがあった。 sub with { my($self, @roles) = @_; foreach my $role(@roles) { next if ref $role; $role = Mouse::Util::load_first_existing_class( __PACKAGE__ . '::Role::' . $role, $role, ); } Mouse::Util::apply_all_roles($self, @roles); return $self; } この場合、やはり s/^\+// ? $_ : __PACKAGE__ . '::Plugin::$_' のイディオムをつかった方が問題がすくないようにおもう。たとえば、Data::Validator::Role::JSON っていう拡張があったとしよう(実際に

[kits]

'::Plugin::$_' は "::Plugin::$_" でなくて大丈夫だろうか。

[hide_o_55]

同意

[gfx]

んー確かに。そう考えると，インストールされているモジュールによって挙動が変わるload_first_existing_class()そのものがよくないかなー。Xslateのsyntaxも同じやり方だし，これは改めよう。