#!/usr/bin/env perlusestrict;usewarnings;useTest::More;uselib't/fun/lib';BEGIN{if(!eval{requireSub::Name}){planskip_all=>"This test requires Sub::Name";}}useFun;funFoo::foo($x,$y){$x+$y;}ok(!main->can('foo'));ok(Foo->can('foo'));is(Foo::foo(1,2),3);done_testing;