my $class = ref($self); foreach my $parent (@{"${class}::ISA"}) { my $value = $parent->do_something if $parent->can('do_something'); }