sub _find_modules {
    my $dir = shift ;
    my ($inst) = ExtUtils::Installed->new();
    my $packlist = $inst->packlist("My_Package");
    return grep { /.*?\Q$dir\E\w+\.pm$/ and s/(.*?\Q$dir\E)(\w+)(\.pm)$/$2/; } %$packlist ;
}