Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/destefa1/public_html/nf/function.php:1) in /home/destefa1/public_html/nf/function.php on line 220
use strict; use warnings;
use lib (-e 't' ? 't' : 'test'), 'inc';
package Foo;
use Test::More tests => 20;
use Something;
ok(not defined &Foo::import);
ok(defined &Foo::thing);
ok(ref(thing) eq 'Something');
ok(thing()->can('cool'));
ok(thing()->isa('Something'));
ok(thing()->isa('Thing'));
ok(thing()->isa('Spiffy'));
is(join('-', @Foo::ISA), '');
ok(not defined &Foo::field);
ok(not defined &Foo::spiffy_constructor);
ok(not defined &Something::import);
ok(defined &Something::thing);
ok(defined &Something::field);
ok(not defined &Something::spiffy_constructor);
is(join('-', @Something::ISA), 'Thing');
ok(not defined &Thing::import);
ok(defined &Thing::thing);
ok(defined &Thing::field);
ok(not defined &Thing::spiffy_constructor);
is(join('-', @Thing::ISA), 'Spiffy');