Doesn't use List::Util qw( first ); generate an unwanted first() "method" (actually, a function) that is inherited to all children? I would have coded this as use List::Util (); and return List::Util::first { $_->can($method) } @$isa;.