tidy

Author: wchristian

META.json

@@ -91,7 +91,7 @@
             "lib" : "0",
             "local::lib" : "0",
             "perl" : "5.010",
-            "strictures" : "0"
+            "strictures" : "2"
          }
       },
       "test" : {
@@ -102,9 +102,11 @@
             "IPC::Open3" : "0",
             "Test::InDistDir" : "0",
             "Test::More" : "0",
+            "Test::ReportPerlTidy" : "0",
             "blib" : "1.01",
             "perl" : "5.010",
             "strict" : "0",
+            "strictures" : "2",
             "warnings" : "0"
          }
       }

Makefile.PL

@@ -71,7 +71,7 @@ my %WriteMakefileArgs = (
     "curry" => 0,
     "lib" => 0,
     "local::lib" => 0,
-    "strictures" => 0
+    "strictures" => 2
   },
   "TEST_REQUIRES" => {
     "File::Spec" => 0,
@@ -80,8 +80,10 @@ my %WriteMakefileArgs = (
     "IPC::Open3" => 0,
     "Test::InDistDir" => 0,
     "Test::More" => 0,
+    "Test::ReportPerlTidy" => 0,
     "blib" => "1.01",
     "strict" => 0,
+    "strictures" => 2,
     "warnings" => 0
   },
   "VERSION" => "0.000001",
@@ -135,14 +137,15 @@ my %FallbackPrereqs = (
   "Sub::Name" => 0,
   "Test::InDistDir" => 0,
   "Test::More" => 0,
+  "Test::ReportPerlTidy" => 0,
   "Time::HiRes" => 0,
   "blib" => "1.01",
   "constant" => 0,
   "curry" => 0,
   "lib" => 0,
   "local::lib" => 0,
   "strict" => 0,
-  "strictures" => 0,
+  "strictures" => 2,
   "warnings" => 0
 );
 

cpanfile

@@ -41,7 +41,7 @@ requires "curry" => "0";
 requires "lib" => "0";
 requires "local::lib" => "0";
 requires "perl" => "5.010";
-requires "strictures" => "0";
+requires "strictures" => "2";
 
 on 'test' => sub {
   requires "File::Spec" => "0";
@@ -50,9 +50,11 @@ on 'test' => sub {
   requires "IPC::Open3" => "0";
   requires "Test::InDistDir" => "0";
   requires "Test::More" => "0";
+  requires "Test::ReportPerlTidy" => "0";
   requires "blib" => "1.01";
   requires "perl" => "5.010";
   requires "strict" => "0";
+  requires "strictures" => "2";
   requires "warnings" => "0";
 };
 

lib/OpenGL/Debug.pm

@@ -20,15 +20,18 @@ sub import {
 
     my %uniq_imports = map { $_ => 1 } @imports;
 
-    my %all_consts = map { $_ => 1 } map { @{ $Acme::MITHALDU::BleedingOpenGL::EXPORT_TAGS{$_} } } grep { /const/ } keys %Acme::MITHALDU::BleedingOpenGL::EXPORT_TAGS;
+    my %all_consts =
+      map { $_ => 1 }
+      map { @{ $Acme::MITHALDU::BleedingOpenGL::EXPORT_TAGS{$_} } }
+      grep { /const/ } keys %Acme::MITHALDU::BleedingOpenGL::EXPORT_TAGS;
 
     my $glut_init_skips = "glut(MainLoop|Init(|DisplayMode|Context(Version|Profile|Flags)|Window(Size|Position)))";
 
     my @non_debugs = grep { $all_consts{$_} or /^($glut_init_skips|glutCreateWindow)$/ } keys %uniq_imports;
     my @functions = grep { !$all_consts{$_} and !/^($glut_init_skips|glutCreateWindow)$/ } keys %uniq_imports;
 
     my @caller = caller;
-    install_sub( { code => \&{"Acme::MITHALDU::BleedingOpenGL::$_"},   into => $caller[0], as => $_ } ) for @non_debugs;
+    install_sub( { code => \&{"Acme::MITHALDU::BleedingOpenGL::$_"}, into => $caller[0], as => $_ } ) for @non_debugs;
     install_sub( { code => make_wrapped( $_ ), into => $caller[0], as => $_ } ) for @functions;
 
     return;

lib/PryoNet/ServerRole.pm

@@ -49,10 +49,10 @@ sub on_recv_udp {
     my ( $port, $ip_address ) = unpack_sockaddr_in $addr;
     my $ip_string    = inet_ntoa $ip_address;
     my $from_address = "$ip_string:$port";
-    my $frame = $self->extract_frame( \$dgram );
+    my $frame        = $self->extract_frame( \$dgram );
     if ( $frame->isa( "PryoNet::FrameWorkMessage::RegisterUDP" ) ) {
         my $from_connection_id = $frame->connection_id;
-        my $connection = delete $self->pending_connections->{$from_connection_id};
+        my $connection         = delete $self->pending_connections->{$from_connection_id};
         return if !$connection or $connection->udp_remote_address;
 
         $connection->udp_remote_address_octets( $addr );

t/basic.t

@@ -5,7 +5,7 @@ package basic_test;
 use Test::InDistDir;
 use Test::More;
 
-use Microidium::Client;
+use Microidium;
 
 run();
 done_testing;

t/zzz_tidy.t

@@ -0,0 +1,15 @@
+use strictures 2;
+
+use Test::InDistDir;
+use Test::More;
+
+use Test::ReportPerlTidy;    # from https://github.com/wchristian/Test-ReportPerlTidy
+
+run();
+done_testing;
+exit;
+
+sub run {
+    Test::ReportPerlTidy::run( sub { shift =~ /^Makefile\.PL$|^Microidium-\d/ } );
+    return;
+}