fix coderef naming to avoid confusing autoclean

[gitmo/Moo.git] / lib / Moo / _Utils.pm

diff --git a/lib/Moo/_Utils.pm b/lib/Moo/_Utils.pm
index 6db4dac..b45b433 100644 (file)
--- a/lib/Moo/_Utils.pm
+++ b/lib/Moo/_Utils.pm
@@ -67,6 +67,7 @@ sub _install_coderef {
 }
 
 sub _name_coderef {
+  shift if @_ > 2;
   can_haz_subname ? Sub::Name::subname(@_) : $_[1];
 }