add Sub::Name, clean up indentation

[gitmo/MooseX-Antlers.git] / lib / MooseX / Antlers / Compiler.pm

diff --git a/lib/MooseX/Antlers/Compiler.pm b/lib/MooseX/Antlers/Compiler.pm
index 0c0345a..667026d 100644 (file)
--- 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 {