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

Perlコーディング初心 ..

83:nobodyさん
09/02/21 05:32:46
ああもしかして、メソッドをオーバーライドしないときの動作かな？
メソッドが実装されていなければ、親のクラスを辿って実行するよ。

package Parent;

sub new { bless { greeting => 'hello' }, $_[0] }
sub greeting { return $_[0]->{greeting} }

package Child;
use base qw(Parent);

package main;

print Child->new->greeting, "\n"; # Parentのメソッドが呼ばれる

次ページ

続きを表示

1を表示