4 use Test::More tests => 11;
18 extends 'Role::Parent';
21 } qr/Roles do not support 'extends'/;
47 has 'foo' => (is => 'bare');
75 local $TODO = "Mouse::Role does not currently support 'excludes'";
76 ::ok(!$@, "excludes");
85 confess "Mouse::Role exports confess";
87 } qr/^Mouse::Role exports confess/;
93 my $obj = bless {} => "Impromptu::Class";
94 ::is(blessed($obj), "Impromptu::Class");
101 with 'Role', 'Other::Role';