perl - 継承を使いたいワケ : 404 Blog Not Found2006年12月05日09:30 カテゴリLightweight Languages perl - 継承を使いたいワケ おっとっと。というわけで元記事は直したのだけど、あえて継承を使いたかったのにはワケがある。 subtech - Bulknews::Subtech - MobileAgent おしゃれでもないし、そもそもこのコードでは動かない。 無理やりかけばこうなるか。 package MyMobileAgent; my $i; sub new { my $class = shift; my $self = HTTP::MobileAgent->new(@_); my $pkg = __PACKAGE__ . "::". $i++; no strict 'refs'; @{$pkg."::ISA"} = (ref $self, __PACKAGE__); bless $self, $p
