sub My::Filters::known { } sub My::Filters::forward; for my $string (qw[known unknown forward]) { warn $string if My::Filters->can($string); } #### sub My::Filters::known { } sub My::Filters::forward; sub My::Other::Filters::forward; for my $package (qw[My::Filters My::Other::Filters]) { for my $func (qw[known unknown forward]) { warn $package . '::' . $func if $package->can($func); } }