perltidy

Author: wchristian

Makefile.PL

@@ -40,4 +40,3 @@ WriteMakefile(
     },
     'EXE_FILES' => ['bin/minicpan_webserver'],
 );
-

bin/minicpan_webserver

@@ -9,8 +9,8 @@ use Getopt::Long;
 my $port = 2963;
 GetOptions( "port=i" => \$port, );
 
-my $server = CPAN::Mini::Webserver->new($port);
-$server->run();
+my $server = CPAN::Mini::Webserver->new( $port );
+$server->run;
 
 __END__
 

build_css.pl

@@ -9,13 +9,13 @@
 use Template;
 use YAML qw(LoadFile DumpFile);
 
-foreach my $filename ( File::Find::Rule->new->file->in('root/static/css') ) {
+foreach my $filename ( File::Find::Rule->new->file->in( 'root/static/css' ) ) {
     next if $filename =~ /my-screen\.css/;
-    unlink($filename) || die $!;
+    unlink( $filename ) || die $!;
 }
 
 my $settings = 'blueprint/lib/settings.yml';
-my $conf     = LoadFile($settings);
+my $conf     = LoadFile( $settings );
 $conf->{cpanminiwebserver}->{path} = cwd . '/root/static/css/';
 DumpFile( $settings, $conf );
 use YAML;
@@ -48,10 +48,11 @@ END
 my $tt = Template->new;
 $tt->process(
     \$template,
-    {   files => [
-            [ 'ie'     => scalar read_file('root/static/css/ie.css') ],
-            [ 'print'  => scalar read_file('root/static/css/print.css') ],
-            [ 'screen' => scalar read_file('root/static/css/screen.css') ],
+    {
+        files => [
+            [ 'ie'     => scalar read_file( 'root/static/css/ie.css' ) ],
+            [ 'print'  => scalar read_file( 'root/static/css/print.css' ) ],
+            [ 'screen' => scalar read_file( 'root/static/css/screen.css' ) ],
         ],
     },
     \my $perl,

build_images.pl

@@ -29,14 +29,7 @@ END
 };
 
 my $tt = Template->new;
-$tt->process(
-    \$template,
-    {   files => [
-            [ 'logo'    => encode_base64( read_file('images/logo.png') ) ],
-            [ 'favicon' => encode_base64( read_file('images/favicon.png') ) ],
-        ],
-    },
-    \my $perl,
-) || die $template->error();
+$tt->process( \$template, { files => [ [ 'logo' => encode_base64( read_file( 'images/logo.png' ) ) ], [ 'favicon' => encode_base64( read_file( 'images/favicon.png' ) ) ], ], }, \my $perl, )
+  || die $template->error();
 Perl::Tidy::perltidy( source => \$perl, destination => \my $tidied );
 write_file( 'lib/CPAN/Mini/Webserver/Templates/Images.pm', $tidied );