1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use lib 'lib';
package Foo;
use strict;
use Spiffy -base;
use Cwd;
our @EXPORT = qw(cwd);
package Bar;
use strict;
Foo->base;
our @EXPORT = qw(doodle);
sub doodle {}
sub poodle {}
package Baz;
use strict;
Bar->base;
package main;
use strict;
use Test::More tests => 12;
ok(not defined &Foo::import);
ok(defined &Foo::cwd);
ok(not defined &Foo::doodle);
ok(not defined &Foo::poodle);
ok(not defined &Bar::import);
ok(defined &Bar::cwd);
ok(defined &Bar::doodle);
ok(defined &Bar::poodle);
ok(not defined &Baz::import);
ok(defined &Baz::cwd);
ok(defined &Baz::doodle);
ok(not defined &Baz::poodle);
|
