use strict;
use warnings;

my $bar = bar->new;
$bar->foo;

package foo;
sub new { return bless {}, shift }

package bar;
use base qw( foo );
use Data::Dumper;

sub new { return bless {}, shift }
sub foo { print Dumper \@INC }