2006年10月22日22:15 カテゴリLightweight Languages perl - Object::PrototypeでPOMを実装 Perl5最大の欠点:Object Systemが後付けなこと。 Perl5最大の利点:Object Systemが後付けなこと。 amachangのサンプルも、このとおり。 use strict; use warnings; use Object::Prototype; use utf8; sub alert{ warn @_ }; my $animal = Object::Prototype->new({}, { breath => sub{ alert('すーはー'); } }); # 鳥さんのプロトタイプ my $bird = Object::Prototype->new($animal); $bird->prototype(fly