use strict;
use warnings;
use Test::More tests => 9;
-use Mouse::Util ':test';
+use Test::Exception;
do {
package Class;
do {
package Class::Two;
use Mouse;
- has foo => (is => 'rw', default => sub { shift->default_foo });
+ has foo => (is => 'rw', default => sub {
+ die unless $_[0]->isa('Class::Two');
+ shift->default_foo;
+ });
sub default_foo { 1 };
};