0044nobodyさん
02/11/21 22:57ID:CidwFuxc#どうすればいいか分かりません。教えてください。
my $b = new a();
print 'nothing';
$b->nothing();# hoge
print 'read';
$b->read();# hoge
package a;
sub new {
my $this = shift;
my $self = {};
bless $self, $this;
return $self;
}
sub read {
my $self = shift;
print "hoge\n";
}
AUTOLOAD {
my $self = shift;
$self->read();
}