Blame t/cascade.t

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);