package a;
BEGIN {
    use Data::Dumper;
    print STDERR 'a:',Dumper \%INC;
}
use b;
my $a = { foo => &b::bar () };
1;