>>31
ﾃﾞﾏ流すなよ。。。

#!perl
my @obj;
push @obj, Super->new();
push @obj, Subclass->new();
push @obj, new Subclass;
for my $obj (@obj) {
　　　$obj->compute();
}
exit;

package Super;
sub new {
　　　my $class = shift;
　　　my $self = bless {
　　　　　　message => 'Hello World!'
　　　}, $class;
　　　$self->init();
　　　return $self;
}

sub init {
　　　my $self = shift;
　　　print $self->{message}, "\n";
}

sub compute {
　　　my $self = shift;
　　　print scalar(localtime), "\n";
}


package Subclass;
use base 'Super';
sub compute {
　　　my $self = shift;
　　　print scalar(gmtime), "\n";
}