From: Matt S Trout Date: Sat, 5 Dec 2009 08:02:26 +0000 (+0000) Subject: add Sub::Name, clean up indentation X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fec6319b820dc7f7890a2516b10ff99bfb8bda0b;p=gitmo%2FMooseX-Antlers.git add Sub::Name, clean up indentation --- diff --git a/lib/MooseX/Antlers/Compiler.pm b/lib/MooseX/Antlers/Compiler.pm index 0c0345a..667026d 100644 --- a/lib/MooseX/Antlers/Compiler.pm +++ b/lib/MooseX/Antlers/Compiler.pm @@ -75,15 +75,16 @@ sub compiled_source { } my $im_construct = $im_et->serialized_construction($all_refs); my $preamble = tt strip q{ + use Sub::Name (); my %replay_has; my %has_args; BEGIN { %replay_has = ( - [% FOREACH a IN attr_construct_h %] + [% FOREACH a IN attr_construct_h %] [% a.key %] => sub { [% a.value %] } - [% END %] + [% END %] ); } sub MooseX::Antlers::ImmutableHackFor::[% target %]::make_immutable {