Come up as MooseX::Antlers::Compiler::make_immutable in the stack trace
Tomas Doran [Tue, 12 Jan 2010 21:53:59 +0000 (21:53 +0000)]
lib/MooseX/Antlers/Compiler.pm

index 667026d..238f9be 100644 (file)
@@ -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;