Perlコーディング初心者質問スレ Part 59

Perlコーディング初心 ..

84:nobodyさん
09/02/21 08:40:32
>>83
具体例を出すべきでしたね、すみません。

package Parent;

sub new { bless {},shift }
sub whoami { print "parent\n" }

package Child;
use base 'Parent';

sub whoami { print "child\n" }

package main;

my $obj = Child->new;
$obj->whoami; 　　　　# child
$obj->SUPER::whoami; # エラー。"parent\n"を出してほしい

次ページ