X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F012_method_exclusion_in_composition.t;h=f678d2c9e3913249056691f3748f856e7c2a93a1;hp=d852b17e12e22d1c35567d2324cea13b11647714;hb=7a50b45027c9f7baad76cfce7f78c822bd38f0a7;hpb=60b5c3be4d0b3bb705df1e8d977f2ce90db6668d diff --git a/t/030_roles/failing/012_method_exclusion_in_composition.t b/t/030_roles/failing/012_method_exclusion_in_composition.t index d852b17..f678d2c 100644 --- a/t/030_roles/failing/012_method_exclusion_in_composition.t +++ b/t/030_roles/failing/012_method_exclusion_in_composition.t @@ -39,7 +39,7 @@ ok(My::OtherRole->meta->has_method($_), "we have a $_ method") for qw(foo bar ba ok(!My::OtherRole->meta->requires_method('foo'), '... and the &foo method is not required'); ok(My::OtherRole->meta->requires_method('bar'), '... and the &bar method is required'); - +use Data::Dumper; print Dumper(My::OtherRole->meta->{required_methods}); { package Foo::Role; use Mouse::Role;