1	package a;
     2	BEGIN {
     3	    use Data::Dumper;
     4	    print STDERR 'a:',Dumper \%INC;
     5	}
     6	use b;
     7	my $a = { foo => &b::bar () };
     8	1;
     9	
    10	b.pm: 
    11	
    12	package b;
    13	
    14	BEGIN {
    15	    use Data::Dumper;
    16	    print STDERR 'b:',Dumper \%INC;
    17	}
    18	use c;
    19	sub bar { 1; }
    20	1;
    21	
    22	c.pm: 
    23	
    24	package c;
    25	BEGIN {
    26	    use Data::Dumper;
    27	    print STDERR 'c:',Dumper \%INC;
    28	}
    29	use a;
    30	1;