Perl ã§æ‹¡å¼µå¯èƒ½ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’ã‹ãã¨ãã« s/^\+// ? $_ : __PACKAGE__ . '::Plugin::$_' ã¨ã—ãŸæ–¹ãŒã„ã„ç†ç”± - tokuhirom's blogData::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 ã£ã¦ã„ã†æ‹¡å¼µãŒã‚ã£ãŸã¨ã—よã†(実際ã«
{{#tags}}- {{label}}
{{/tags}}