(my $pkgdir =  __PACKAGE__) =~ s!::!/!;
my ($path) = $INC{"$pkgdir.pm"} =~ m!^(.+)/!;
print $path;