818958a
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/env perl use strict; use warnings; use Test::More; use lib 't/lib'; sub foo { 'foo' } is(foo(), "foo"); { use Foo; is(foo(), "FOO"); } is(foo(), "foo"); done_testing;