The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use lib 't/lib';
use Test::More tests => 1;

{
    package Foo;
    use BaseClass;
}

is(Foo->new->foo(), 'bar');