Switch tabs to 3-space (from bad to worse)

diff --git a/Makefile.PL b/Makefile.PL
index 5002aa7..2bbacae 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,9 +5,9 @@ use ExtUtils::MakeMaker;
 (do 'maint/Makefile.PL.include' or die $@) unless -f 'META.yml';
 
 my %deps = (
-       PREREQ_PM => {
-               Exporter => '5.58',
-       },
+   PREREQ_PM => {
+      Exporter => '5.58',
+   },
 );
 my $key = eval { ExtUtils::MakeMaker->VERSION(6.56) } ? 'BUILD_REQUIRES' : 'PREREQ_PM' ;
 $deps{$key}{'Test::More'} = '0.96';

diff --git a/t/tags.t b/t/tags.t
index 110bcb3..dd0a20d 100644 (file)
--- a/t/tags.t
+++ b/t/tags.t
@@ -8,7 +8,7 @@ use lib 't/lib';
 use A::Junk ':other';
 
 BEGIN {
-       unshift @INC, sub { croak 'Shouldn\'t load Sub::Exporter' if $_[1] eq 'Sub/Exporter.pm' };
+   unshift @INC, sub { croak 'Shouldn\'t load Sub::Exporter' if $_[1] eq 'Sub/Exporter.pm' };
 }
 
 ok(!main->can('junk1'), 'junk1 not exported');
@@ -17,41 +17,41 @@ ok(main->can('junk3'), 'junk3 exported');
 ok(! $INC{'Sub/Exporter.pm'}, 'Sub::Exporter not loaded');
 
 BEGIN {
-       package Local::Exporter;
-       use Sub::Exporter::Progressive -setup => {
-               exports => [qw/ foo bar baz /],
-               groups  => {
-                       default => [qw/ foo /],
-                       bb      => [qw/ bar baz /],
-               },
-       };
-       use constant {
-               foo => 1,
-               bar => 2,
-               baz => 3,
-       };
-       $INC{'Local/Exporter.pm'} = __FILE__;
+   package Local::Exporter;
+   use Sub::Exporter::Progressive -setup => {
+      exports => [qw/ foo bar baz /],
+      groups  => {
+         default => [qw/ foo /],
+         bb      => [qw/ bar baz /],
+      },
+   };
+   use constant {
+      foo => 1,
+      bar => 2,
+      baz => 3,
+   };
+   $INC{'Local/Exporter.pm'} = __FILE__;
 };
 
 my $i = 0;
 sub check_tag
 {
-       my ($tag, $should, $shouldnt) = @_;
-       my $pkg = 'Local::Importer' . ++$i;
-       subtest "test the '$tag' tag" => sub
-       {
-               plan tests => 1 + @$should + @$shouldnt;
-               local $@ = undef;
-               
-               ok(eval qq{
-                       package $pkg;
-                       use Local::Exporter qw( $tag );
-                       1;
-               }, "$pkg compiled") or diag $@;
-               
-               ok( $pkg->can($_), "$pkg\->can(\"$_\")") for @$should;
-               ok(!$pkg->can($_), "$pkg\->can't(\"$_\")") for @$shouldnt;
-       }
+   my ($tag, $should, $shouldnt) = @_;
+   my $pkg = 'Local::Importer' . ++$i;
+   subtest "test the '$tag' tag" => sub
+   {
+      plan tests => 1 + @$should + @$shouldnt;
+      local $@ = undef;
+      
+      ok(eval qq{
+         package $pkg;
+         use Local::Exporter qw( $tag );
+         1;
+      }, "$pkg compiled") or diag $@;
+      
+      ok( $pkg->can($_), "$pkg\->can(\"$_\")") for @$should;
+      ok(!$pkg->can($_), "$pkg\->can't(\"$_\")") for @$shouldnt;
+   }
 }
 
 check_tag(':default', [qw/foo/], [qw/bar baz/]);