note
dada
something like this seems to work and doesn't require hardcoded names. it just grabs the first parent method (in @ISA order) it finds:
<code>
sub AUTOLOAD {
no strict;
my $METHOD;
($METHOD = $AUTOLOAD) =~ s/.*:://;
foreach my $PARENT (@ISA) {
if(defined &{$PARENT.'::'.$METHOD}) {
goto &{$PARENT.'::'.$METHOD}
}
}
}
</code>
either this, or use Damian's [cpan://NEXT] module.
<p>
cheers,<br>
Aldo
<p>
King of Laziness, Wizard of Impatience, Lord of Hubris
208923
208955