package Foo::Bar;

sub test {
   my $pkg = __PACKAGE__;
   $pkg =~ s#::#/#g;
   $pkg .= '.pm';
   print($INC{$pkg}, "\n");
}