in reply to Re: Detecting Overridden Methods
in thread Detecting Overridden Methods

Ah - I see. You don't want to hard code the classes. My Bad. Then yes - you'll have to look at @A::ISA - but only @A::ISA.

for my $i (@A::ISA) { for (qw(foo bar baz)) { print "$_: " .(A->can($_) == $i->can($_) ? " same" : " overwritten") ."\n"; } }


my @a=qw(random brilliant braindead); print $a[rand(@a)];