Come up as MooseX::Antlers::Compiler::make_immutable in the stack trace

[gitmo/MooseX-Antlers.git] / lib / MooseX / Antlers / Compiler.pm

diff --git a/lib/MooseX/Antlers/Compiler.pm b/lib/MooseX/Antlers/Compiler.pm
index 667026d..238f9be 100644 (file)
--- a/lib/MooseX/Antlers/Compiler.pm
+++ b/lib/MooseX/Antlers/Compiler.pm
@@ -4,6 +4,7 @@ use Moose;
 use IO::All qw(io);
 use String::TT qw(strip tt);
 use B qw(perlstring);
+use Sub::Name qw/subname/;
 use Data::Dumper::Concise;
 use Scalar::Util qw(refaddr);
 use aliased 'MooseX::Antlers::RefTracker';
@@ -43,7 +44,7 @@ sub load {
     }
   };
   my $orig_immutable = Moose::Meta::Class->can('make_immutable');
-  local *Moose::Meta::Class::make_immutable = sub {
+  local *Moose::Meta::Class::make_immutable = subname 'MooseX::Antlers::Compiler::make_immutable' => sub {
     my $et = EvalTracker->new->enable;
     $orig_immutable->(@_);
     $im_et = $et->disable;