package Foo::Bar;

sub whence
{
    my $fp = __PACKAGE__;
    $fp =~ s,::,/,g;
    $fp .= '.pm';

    $main::INC{$fp}
}