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

[0083 nobodyさん 2009/02/21(土) 05:32:46 ID:???]

ああもしかして、メソッドをオーバーライドしないときの動作かな？
メソッドが実装されていなければ、親のクラスを辿って実行するよ。

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のメソッドが呼ばれる