I think this fixed the bleadperl issue

diff --git a/t/003_methods.t b/t/003_methods.t
index fa64c49..9dfcb9e 100644 (file)
--- a/t/003_methods.t
+++ b/t/003_methods.t
@@ -116,7 +116,7 @@ for my $method_name (qw/FOO_CONSTANT
     isa_ok($Foo->get_method($method_name), 'Class::MOP::Method');
     {
         no strict 'refs';
-        is($Foo->get_method($method_name)->body, \&{'Foo::' . $method_name}, '... body matches CODE ref in package');
+        is($Foo->get_method($method_name)->body, \&{'Foo::' . $method_name}, '... body matches CODE ref in package for ' . $method_name);
     }
 }