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 lib 't', 'lib';
use strict;
no strict 'refs';
use warnings;
package A;
use Spiffy -base;
field 'foo' => 17;
package X;
sub extra {99}
package BB;
use base 'X';
sub xxx {42}
sub yyy {}
sub _zzz {}
package C;
use base 'A';
use mixin 'BB';
package main;
use Test::More tests => 10;
my $c = C->new;
ok($c->can('foo'));
is($c->foo, 17);
ok($c->can('extra'));
is($c->extra, 99);
ok($c->can('xxx'));
is($c->xxx, 42);
ok(not $c->can('_zzz'));
is(@{C::ISA}, 1);
is(${C::ISA}[0], 'C-BB');
is(${"C-BB::ISA"}[0], 'A');