detab. again. think I might've fixed it this time.

diff --git a/lib/Method/Generate/Accessor.pm b/lib/Method/Generate/Accessor.pm
index 5623366..7814fb8 100644 (file)
--- a/lib/Method/Generate/Accessor.pm
+++ b/lib/Method/Generate/Accessor.pm
@@ -70,8 +70,8 @@ sub _generate_trigger {
       my $cap_name = qq{\$trigger_captures_for_${name}};
       $self->{captures}->{$cap_name} = \$captures;
       return "do {\n".'      '.$at_."\n"
-       .Sub::Quote::capture_unroll($cap_name, $captures, 6)
-       ."     ${code}\n    }";
+        .Sub::Quote::capture_unroll($cap_name, $captures, 6)
+        ."     ${code}\n    }";
     }
     return 'do { local @_ = ('.join(', ', $obj, $value).'); '.$code.' }';
   }

diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm
index 3bb4be3..72af94e 100644 (file)
--- a/lib/Sub/Quote.pm
+++ b/lib/Sub/Quote.pm
@@ -20,7 +20,7 @@ sub capture_unroll {
     '',
     map {
       /^([\@\%\$])/
-       or die "capture key should start with \@, \% or \$: $_";
+        or die "capture key should start with \@, \% or \$: $_";
       (' ' x $indent).qq{my ${_} = ${1}{${from}->{${\perlstring $_}}};\n};
     } keys %$captures
   );