PerlのコアモジュールにNEXTというのがあります。 NEXT - perldoc.perl.org NEXT - Provide a pseudo-class NEXT (et al) that allows method redispatch - metacpan.org とりあえずSYNOPSISのコードを実行してみたのがことの始まりでした。 環境はPowerBook G4にPerl 5.8.8で。 #!/usr/local/bin/perl use strict; use warnings; use NEXT; package A; sub A::method { print "$_[0]: A method?n"; $_[0]->NEXT::method() } sub A::DESTROY { print "$_[0]: A dtor?n"; $_[0]->NEXT::DES