use warnings;
use Test::More;
-BEGIN{
- if(eval{ require Class::Method::Modifiers::Fast } || eval{ require Class::Method::Modifiers }){
- plan tests => 86;
- }
- else{
- plan skip_all => 'This test requires Class::Method::Modifiers(::Fast)?';
- }
-}
use Test::Exception;
{
'... the FooBarClass->meta !does_role OtherRole' );
foreach my $method_name (qw(bar baz foo boo blau goo)) {
- #use Data::Dumper; $Data::Dumper::Maxdepth=1; diag(Dumper $foo_class_meta->{methods});
ok( $foo_class_meta->has_method($method_name),
'... FooClass has the method ' . $method_name );
ok( $foobar_class_meta->has_method($method_name),
is( $foo->bar, $foo2, '... got the right value for bar now' );
}
+
+done_testing;