whitespace and style cleanup
Graham Knop [Mon, 18 Nov 2013 19:40:52 +0000 (14:40 -0500)]
lib/App/FatPacker.pm
t/pack.t

index b5baa36..0ca5c86 100644 (file)
@@ -283,20 +283,18 @@ sub fatpack_end {
            };
          }
          return;
-      }
+      };
     }
 
     else {
-
       *{"${class}::INC"} = sub {
-       if (my $fat = $_[0]{$_[1]}) {
+        if (my $fat = $_[0]{$_[1]}) {
           open my $fh, '<', \$fat
             or die "FatPacker error loading $_[1] (could be a perl installation issue?)";
           return $fh;
         }
         return;
       };
-
     }
 
     unshift @INC, bless \%fatpacked, $class;
index cbbcb71..c88b9e1 100644 (file)
--- a/t/pack.t
+++ b/t/pack.t
@@ -49,11 +49,12 @@ require $temp_fh;
 
     my @files = sort $INC[0]->files;
 
-    is_deeply( \@files, [ 't/mod/a.pm',
-                       't/mod/b.pm',
-                       't/mod/c.pm',
-                       't/mod/cond.pm',
-                       ], "\$INC[0]->files returned the files" );
+    is_deeply( \@files, [
+        't/mod/a.pm',
+        't/mod/b.pm',
+        't/mod/c.pm',
+        't/mod/cond.pm',
+    ], "\$INC[0]->files returned the files" );
 
 }