use lib 't', 'lib';
use strict;
use warnings;

package BOX;
use Spiffy -Base;

package main;
use Test::More tests => 3;

is(scalar <BOX::DATA>, "one\n");
is(scalar <BOX::DATA>, "two\n");
is(scalar <BOX::DATA>, "three\n");

sub foo {
    $self->foo;
}

package BOX;
__DATA__
one
two
three