package PkgA;
use List::Util qw( first );
BEGIN { our @ISA = qw( ... ); }
sub foo { 'Whee!' }
sub check { return first { $_->can('foo') } @ISA; }