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';
}
};
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;