Perl日記

日々の知ったことのメモなどです。Perlは最近やってないです。

2012-04-11から1日間の記事一覧

SUPERは@ISAを探ってくれてるわけではない

これが動かなかったので調べたメモ。 strictはなしで。 *{"Foo::aiueo"} = sub { print "aiueo.\n" }; # Fooクラスのaiueoメソッド *{"Bar::new"} = sub { bless {}, "Bar" }; # Barクラスのコンストラクタ push @Bar::ISA, "Foo"; # BarはFooを継承 *{"Bar:…