add Sub::Name, clean up indentation
Matt S Trout [Sat, 5 Dec 2009 08:02:26 +0000 (08:02 +0000)]
lib/MooseX/Antlers/Compiler.pm

index 0c0345a..667026d 100644 (file)
@@ -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 {