Switch to 2-space indent, minor formatting (no code) changes

[p5sagit/Class-Accessor-Grouped.git] / t / warnings.t

diff --git a/t/warnings.t b/t/warnings.t
index b0fcaf5..903837e 100644 (file)
--- a/t/warnings.t
+++ b/t/warnings.t
@@ -2,48 +2,49 @@ use strict;
 use warnings;
 
 BEGIN {
-    use lib 't/lib';
-    use Test::More;
-    use File::Find;
-    use File::Basename;
+  use lib 't/lib';
+  use Test::More;
+  use File::Find;
+  use File::Basename;
 
-    plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+  plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
 
-    eval 'use Test::Strict 0.05';
-    plan skip_all => 'Test::Strict 0.05 not installed' if $@;
-    plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+  eval 'use Test::Strict 0.05';
+  plan skip_all => 'Test::Strict 0.05 not installed' if $@;
+  plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
 };
 
 ## I hope this can go away if Test::Strict or File::Find::Rule
 ## finally run under -T. Until then, I'm on my own here. ;-)
 my @files;
 my %trusted = (
-    'NotReallyAClass.pm' => 1
+  'NotReallyAClass.pm' => 1
 );
 
-find({  wanted => \&wanted,
-        untaint => 1,
-        untaint_pattern => qr|^([-+@\w./]+)$|,
-        untaint_skip => 1,
-        no_chdir => 1
+find({
+  wanted => \&wanted,
+  untaint => 1,
+  untaint_pattern => qr|^([-+@\w./]+)$|,
+  untaint_skip => 1,
+  no_chdir => 1
 }, qw(lib t));
 
 sub wanted {
-    my $name = $File::Find::name;
-    my $file = fileparse($name);
+  my $name = $File::Find::name;
+  my $file = fileparse($name);
 
-    return if $name =~ /TestApp/;
+  return if $name =~ /TestApp/;
 
-    if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
-        push @files, $name;
-    };
+  if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+    push @files, $name;
+  };
 };
 
 if (scalar @files) {
-    plan tests => scalar @files;
+  plan tests => scalar @files;
 } else {
-    plan tests => 1;
-    fail 'No perl files found for Test::Strict checks!';
+  plan tests => 1;
+  fail 'No perl files found for Test::Strict checks!';
 };
 
 foreach (@files) {