Changeset 10621

Timestamp:

02/08/10 03:51:35 (2 years ago)

Author:

azawawi

Message:

Perl tidy

Location:

trunk/Padre

Files:

• dev.pl (modified) (3 diffs)
• lib/Padre/Constant.pm (modified) (3 diffs)
• lib/Padre/Plugin/PopularityContest/Ping.pm (modified) (1 diff)
• lib/Padre/Task/HTTPClient.pm (modified) (1 diff)
• lib/Padre/Util/SVN.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/RegexEditor.pm (modified) (2 diffs)

trunk/Padre/dev.pl

@@ -36 +36 @@
         'debug|d'     => \$DEBUG,
         'trace'       => sub { $ENV{PADRE_DEBUG} = 1 },
-        'die'         => sub { $ENV{PADRE_DIE}   = 1 },
+        'die'         => sub { $ENV{PADRE_DIE} = 1 },
         'profile'     => \$PROFILE,
         'a'           => \$PLUGINS,
@@ -82 +82 @@
 
 if ($FULLTRACE) {
-    eval {
-        require Devel::Trace;
-    };
+    eval { require Devel::Trace; };
     if ($@) {
         print "Error while initilizing --fulltrace while trying to load Devel::Trace:\n"
@@ -115 +113 @@
 push @cmd, '--help' if $USAGE;
 
-if ( $DEBUG ) {
+if ($DEBUG) {
     print "Running " . join( ' ', @cmd ) . "\n";
 }
 
-if ( $USAGE ) {
+if ($USAGE) {
     usage();
 }

trunk/Padre/lib/Padre/Constant.pm

@@ -102 +102 @@
 );
 
-use constant LOG_FILE       => File::Spec->catfile( CONFIG_DIR, 'debug.log' );
-use constant PLUGIN_DIR     => File::Spec->catdir( CONFIG_DIR, 'plugins' );
-use constant PLUGIN_LIB     => File::Spec->catdir( PLUGIN_DIR, 'Padre', 'Plugin' );
+use constant LOG_FILE => File::Spec->catfile( CONFIG_DIR, 'debug.log' );
+use constant PLUGIN_DIR => File::Spec->catdir( CONFIG_DIR, 'plugins' );
+use constant PLUGIN_LIB => File::Spec->catdir( PLUGIN_DIR, 'Padre', 'Plugin' );
 use constant CONFIG_HOST    => File::Spec->catfile( CONFIG_DIR, 'config.db' );
 use constant CONFIG_HUMAN   => File::Spec->catfile( CONFIG_DIR, 'config.yml' );
@@ -112 +112 @@
 # so we can run it again later if needed.
 sub init {
+
     # Check and create the directories that need to exist
     unless ( -e CONFIG_DIR or File::Path::mkpath(CONFIG_DIR) ) {
@@ -140 +141 @@
 # 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;
 
 use constant DEFAULT_SINGLEINSTANCE_PORT => 4444;

trunk/Padre/lib/Padre/Plugin/PopularityContest/Ping.pm

@@ -35 +35 @@
 
     # Hand off to the parent constructor
-    return $class->SUPER::new(
-        request => HTTP::Request->new( GET => $url->as_string )
-    );
+    return $class->SUPER::new( request => HTTP::Request->new( GET => $url->as_string ) );
 }
 

trunk/Padre/lib/Padre/Task/HTTPClient.pm

@@ -52 +52 @@
     require Padre::Util::SVN;
     my $revision = Padre::Util::SVN::padre_version();
-    $args{method}               ||= 'GET';
+    $args{method} ||= 'GET';
     $args{headers}->{'X-Padre'} ||= "Padre version $VERSION $revision";
 
     # Each module will be tested and the first working one should return
     # a object, all others should return nothing (undef)
-    foreach my $driver ( @DRIVERS ) {
+    foreach my $driver (@DRIVERS) {
         eval "require $driver;";
         next if $@;

trunk/Padre/lib/Padre/Util/SVN.pm

@@ -15 +15 @@
 # TODO: A much better variant would be a constant set by svn.
 sub padre_revision {
-    unless ( $PADRE ) {
+    unless ($PADRE) {
         if ( $0 =~ /padre$/ ) {
             my $dir = $0;

trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm

@@ -394 +394 @@
     $str   = '' unless $str;
     $level = 0  unless $level;
-    my @children = $parent->isa('PPIx::Regexp::Node') ? $parent->children: ();
+    my @children = $parent->isa('PPIx::Regexp::Node') ? $parent->children : ();
     for my $child (@children) {
         next if $child->content eq '';
@@ -412 +412 @@
     $position = 0  unless $position;
     @array    = () unless @array;
-    my @elements = $parent->isa('PPIx::Regexp::Node') ? $parent->elements: ();
+    my @elements = $parent->isa('PPIx::Regexp::Node') ? $parent->elements : ();
     for my $element (@elements) {
         my $content = $element->content;