|
Packit |
69e8b9 |
use lib 'lib';
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
package Foo;
|
|
Packit |
69e8b9 |
use strict;
|
|
Packit |
69e8b9 |
use Spiffy -base;
|
|
Packit |
69e8b9 |
use Cwd;
|
|
Packit |
69e8b9 |
our @EXPORT = qw(cwd);
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
package Bar;
|
|
Packit |
69e8b9 |
use strict;
|
|
Packit |
69e8b9 |
Foo->base;
|
|
Packit |
69e8b9 |
our @EXPORT = qw(doodle);
|
|
Packit |
69e8b9 |
sub doodle {}
|
|
Packit |
69e8b9 |
sub poodle {}
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
package Baz;
|
|
Packit |
69e8b9 |
use strict;
|
|
Packit |
69e8b9 |
Bar->base;
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
package main;
|
|
Packit |
69e8b9 |
use strict;
|
|
Packit |
69e8b9 |
use Test::More tests => 12;
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
ok(not defined &Foo::import);
|
|
Packit |
69e8b9 |
ok(defined &Foo::cwd);
|
|
Packit |
69e8b9 |
ok(not defined &Foo::doodle);
|
|
Packit |
69e8b9 |
ok(not defined &Foo::poodle);
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
ok(not defined &Bar::import);
|
|
Packit |
69e8b9 |
ok(defined &Bar::cwd);
|
|
Packit |
69e8b9 |
ok(defined &Bar::doodle);
|
|
Packit |
69e8b9 |
ok(defined &Bar::poodle);
|
|
Packit |
69e8b9 |
|
|
Packit |
69e8b9 |
ok(not defined &Baz::import);
|
|
Packit |
69e8b9 |
ok(defined &Baz::cwd);
|
|
Packit |
69e8b9 |
ok(defined &Baz::doodle);
|
|
Packit |
69e8b9 |
ok(not defined &Baz::poodle);
|