use strict;
use warnings;
use Test::More tests => 11;
-use t::Exception;
+use Test::Exception;
do {
package Role;
use Mouse::Role;
has 'attr' => (
+ is => 'bare',
default => 'Role',
);
no Mouse::Role;
};
-is_deeply(Role->meta->get_attribute('attr'), {default => 'Role'});
+is(Role->meta->get_attribute('attr')->{default}, 'Role');
do {
package Class;
use Mouse::Role;
has 'attr' => (
+ is => 'bare',
default => 'Role2',
);
with 'Role';
has attr => (
+ is => 'bare',
default => 'Class3',
);
};
use Mouse;
has attr => (
+ is => 'bare',
default => 'Class::Parent',
);
};