Changeset 12394

Timestamp:

08/29/10 11:36:20 (18 months ago)

Author:

chorny

Message:

perltidy on my changes

Location:

trunk/Padre/lib/Padre

Files:

• Constant.pm (modified) (3 diffs)
• Document/Perl.pm (modified) (1 diff)
• Locale.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Constant.pm

@@ -6 +6 @@
 use strict;
 use warnings;
-use Carp          ();
-use File::Path    ();
-use File::Spec    ();
+use Carp       ();
+use File::Path ();
+use File::Spec ();
 use File::HomeDir 0.91 ();
 
@@ -142 +142 @@
 # NOTE: The only reason this is here is that it is needed both during
 # main configuration, and also during Padre::Startup.
-use constant DEFAULT_SINGLEINSTANCE => (
-    WIN32 and not( $ENV{HARNESS_ACTIVE} or $^P )
-) ? 1 : 0;
+use constant DEFAULT_SINGLEINSTANCE => ( WIN32 and not( $ENV{HARNESS_ACTIVE} or $^P ) ) ? 1 : 0;
 
 # It would be better if we had fully dynamic collision awareness support,
@@ -151 +149 @@
 # of Padre use different ports, so they don't collide with each other.
 use constant DEFAULT_SINGLEINSTANCE_PORT => (
-    $ENV{PADRE_DEV}      ? 4446 :
-    $ENV{HARNESS_ACTIVE} ? 4445 :
-    4444
+      $ENV{PADRE_DEV}      ? 4446
+    : $ENV{HARNESS_ACTIVE} ? 4445
+    : 4444
 );
 

trunk/Padre/lib/Padre/Document/Perl.pm

@@ -738 +738 @@
                     my @subs = $lines =~ /sub\s+(\w+)/g;
                     if ( $lines =~ /use MooseX::Declare;/ ) {
-                        push @subs, ($lines =~ /\bmethod\s+(\w+)/g);
+                        push @subs, ( $lines =~ /\bmethod\s+(\w+)/g );
                     }
 

trunk/Padre/lib/Padre/Locale.pm

@@ -486 +486 @@
 
 use constant system_rfc4646 => List::Util::first {
-    defined $RFC4646{$_}->{wxid} &&
-    $RFC4646{$_}->{wxid} == WX;
-} sort keys %RFC4646;
+    defined $RFC4646{$_}->{wxid}
+        && $RFC4646{$_}->{wxid} == WX;
+}
+sort keys %RFC4646;
 
 use constant last_resort_rfc4646 => 'en-gb';