From: Tomas Doran <bobtfish@bobtfish.net>
Date: Tue, 12 Jan 2010 21:53:59 +0000 (+0000)
Subject: Come up as MooseX::Antlers::Compiler::make_immutable in the stack trace
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b0cfd16f5dd477bfe5b0bc1bc30735c3ea51deb;p=gitmo%2FMooseX-Antlers.git

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

diff --git a/lib/MooseX/Antlers/Compiler.pm b/lib/MooseX/Antlers/Compiler.pm
index 667026d..238f9be 100644
--- 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;