package MyPackage;

use lib '.';
use One;

sub test {
    my $obj = One->new;
    $obj->foo;
}
1;