UNIVERSAL::DOES ã®ä½¿ãé 使ãéããããããããªããã¨ããã£ã¦ç¡è¦ãã¦ããã®ã§ããã Perl 5.10 以å¾ã§ã¯ UNIVERSAL::DOES ãã¤ãããããã«ãªã£ã¦ãã¾ããå ·ä½çã«ã¯ãããããªãã¸ã§ã¯ãã§ ->DOES ã¨ããã¡ã½ããããã¹ãããã«ãªã£ã¦ãã¾ãã ããã«ããããªãã¸ã§ã¯ãããã¼ã«ããµãã¼ããã¦ãããã©ããã®ãã§ãã¯ãã§ããããã«ãªã£ã¦ãã¾ãã Role 㯠isa ã«è¿½å ãã¦ããããã以ä¸ã®ããã« DOES ã¡ã½ããã追å ãã¦ãããã sub DOES { my($c, $name) = @_; return $name eq 'Role::SuperHero' || $c->isa($name); } Perl 5.10 ããå¤ãããã¯ãã¡ã³ããã³ã¹ããã¦ããªã Perl ã§ãã夿 ä»®é¢ã㨠gfx ããã«ãã UNIVERSAL::DOES ã¨ãã
{{#tags}}- {{label}}
{{/tags}}