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

##</code><code>##

Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/5.8.7/My_Package.pm line 309.
Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/5.8.7/My_Package.pm line 309.