X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F003_methods.t;h=a6ba53a89f8afd357ca20785260a5b53d1c61c31;hb=55039f82288984867a24b027addcfe9f2a694217;hp=a1764416a70f872468711a2110a23ae8d4b8fd8a;hpb=3cf189f335625b5ceb9ba49895ee9c78af07dbaa;p=gitmo%2FClass-MOP.git diff --git a/t/003_methods.t b/t/003_methods.t index a176441..a6ba53a 100644 --- a/t/003_methods.t +++ b/t/003_methods.t @@ -288,7 +288,8 @@ my $new_method = Bar->meta->get_method('objecty'); isnt( $method, $new_method, 'add_method clones method objects as they are added' ); is( $new_method->original_method, $method, - '... the cloned method has the correct original method' ); + '... the cloned method has the correct original method' ) + or diag $new_method->dump; { package CustomAccessor;