UNIVERSAL::DOES ã®ä½¿ã„é“ - tokuhirom's blog使ã„é“ãŒã‚ˆãã‚ã‹ã‚‰ã‚“ãªã‚ã€ã¨ãŠã‚‚ã£ã¦ç„¡è¦–ã—ã¦ã„ãŸã®ã§ã™ãŒã€ 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}}