requires qw(req1 req2);
- around foo => sub { my $orig = shift; join ' ', 'role foo', $orig->(@_) };
-
sub bar { 'role bar' }
sub baz { 'role baz' }
}
is(try_apply_to('MyClass'), undef, 'role applies cleanly');
-is(MyClass->foo, 'role foo class foo', 'method modifier');
is(MyClass->bar, 'role bar', 'method from role');
is(MyClass->baz, 'class baz', 'method from class');
ok(MyClass->does('MyRole'), 'class does role');
isa_ok($new_class, 'MyClass');
is($new_class->extra1, 'role extra', 'method from role');
+ok(Role::Tiny->is_role('MyRole'), 'is_role true for roles');
+ok(!Role::Tiny->is_role('MyClass'), 'is_role false for classes');
+
+
done_testing;