use lib 't', 'lib';

use strict;

use warnings;

use Spiffy ();

package Bar;

package Foo;

use base 'Spiffy';

sub new {

    my $self = super;

    field -package => 'Bar', 'xxx';

}

use Test::More tests => 4;

Foo->new;

ok(not defined $Foo::{-package});

ok(not defined &Foo::Bar);

ok(not defined &Foo::xxx);

ok(defined &Bar::xxx);