blob: da39d6ae173bbc2c6e4e60108c8442d1b81a8b28 (
plain) (
blame)
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;
|