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