use lib 't', 'lib';

use strict;

use warnings;

package XXX;

use Spiffy -base;

stub 'foo';

package YYY;

use base 'XXX';

package main;

use Test::More tests => 1;

my $y = YYY->new;

eval {$y->foo};

like($@, qr/subclassed/);