BEGIN {
package MyClass;
+ use constant SIMPLE => 'simple';
+ use constant REF_CONST => [ 'ref_const' ];
+ use constant VSTRING_CONST => v1;
+
sub req1 { }
sub req2 { }
sub foo { 'class foo' }
like(try_apply_to('OneMethod'), qr/req2/, 'error for one method');
is exception {
- Role::Tiny->apply_role_to_package('MyRole', 'IntermediaryRole');
- Role::Tiny->apply_role_to_package('IntermediaryRole', 'ExtraClass');
+ Role::Tiny->apply_role_to_package('IntermediaryRole', 'MyRole');
+ Role::Tiny->apply_role_to_package('ExtraClass', 'IntermediaryRole');
}, undef, 'No errors applying roles';
ok(ExtraClass->does('MyRole'), 'ExtraClass does MyRole');