From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 7 Nov 2010 04:41:46 +0000 (+0000)
Subject: remove more tabs. frackers are breeding in the pipes.
X-Git-Tag: 0.009001~66
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=934ea2c1dd3939190c97f5693c9bfc08b3e82444;p=gitmo%2FMoo.git

remove more tabs. frackers are breeding in the pipes.
---

diff --git a/lib/Role/Tiny.pm b/lib/Role/Tiny.pm
index f71dcad..100622c 100644
--- a/lib/Role/Tiny.pm
+++ b/lib/Role/Tiny.pm
@@ -46,9 +46,9 @@ sub apply_role_to_package {
     +{
       # grab all code entries that aren't in the not_methods list
       map {
-	my $code = *{$stash->{$_}}{CODE};
-	# rely on the '' key we added in import for "no code here"
-	exists $not_methods->{$code||''} ? () : ($_ => $code)
+        my $code = *{$stash->{$_}}{CODE};
+        # rely on the '' key we added in import for "no code here"
+        exists $not_methods->{$code||''} ? () : ($_ => $code)
       } grep !(ref($stash->{$_}) eq 'SCALAR'), keys %$stash
     };
   };
@@ -61,7 +61,7 @@ sub apply_role_to_package {
     keys %$stash
   } = ();
   if (my @requires_fail
-	= grep !exists $has_methods{$_}, @{$info->{requires}||[]}) {
+        = grep !exists $has_methods{$_}, @{$info->{requires}||[]}) {
     # role -> role, add to requires, role -> class, error out
     if (my $to_info = $INFO{$to}) {
       push @{$to_info->{requires}||=[]}, @requires_fail;
diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm
index 38f4ea4..86526ab 100644
--- a/lib/Sub/Quote.pm
+++ b/lib/Sub/Quote.pm
@@ -27,12 +27,12 @@ sub _unquote_all_outstanding {
     if (keys %$captures) {
       my $ass_cap_count = @assembled_captures;
       $make_sub .= join(
-	"\n",
-	map {
-	  /^([\@\%\$])/
-	    or die "capture key should start with \@, \% or \$: $_";
-	  qq{  my ${_} = ${1}{\$_[1][${ass_cap_count}]{${\perlstring $_}}};\n};
-	} keys %$captures
+        "\n",
+        map {
+          /^([\@\%\$])/
+            or die "capture key should start with \@, \% or \$: $_";
+          qq{  my ${_} = ${1}{\$_[1][${ass_cap_count}]{${\perlstring $_}}};\n};
+        } keys %$captures
       );
       push @assembled_captures, $captures;
     }
@@ -40,11 +40,11 @@ sub _unquote_all_outstanding {
     my $o_quoted = perlstring $outstanding;
     $make_sub .= (
       $name
-	  # disable the 'variable $x will not stay shared' warning since
-	  # we're not letting it escape from this scope anyway so there's
-	  # nothing trying to share it
+          # disable the 'variable $x will not stay shared' warning since
+          # we're not letting it escape from this scope anyway so there's
+          # nothing trying to share it
         ? "  no warnings 'closure';\n  sub ${name} {\n"
-	: "  \$Sub::Quote::QUOTED{${o_quoted}}[3] = sub {\n"
+        : "  \$Sub::Quote::QUOTED{${o_quoted}}[3] = sub {\n"
     );
     $make_sub .= $code;
     $make_sub .= "  }".($name ? '' : ';')."\n";