オブジェクトの例(4/4)

使用例
$media = get_media(title => "救済の技法", musician => "平沢進")
           or die "Can't find it.\n";
print join("\n", $media->list()), "\n";
print $media->total_time(), "\n";
$media->play();

get_mediaはMusic::Media::CDのオブジェクトを返すかもしれないし、Music::Media::MP3を返すかもしれない
$media->play()が呼ばれた時点で、$mediaの先がどちらかが判定されて、正しいplay (&Music::Media::CD::playか&Music::Media::MP3::play)が実行される