A way around this is to actually define the entry in %INC. For instance:

package Foo::Bar;

BEGIN { 
    $INC{"Foo/Bar.pm"} = $0;
    use base "Exporter";
    @EXPORT = "hi";
}

sub hi {
    print "Hi from Foo::Bar"
}

package main;

use Foo::Bar;

hi();
[download]