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