Changeset 8572

Timestamp:

10/03/09 06:31:44 (2 years ago)

Author:

Sewi

Message:

Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• Config.pm (modified) (1 diff)
• Current.pm (modified) (2 diffs)
• Wx/Dialog/Preferences.pm (modified) (1 diff)
• Wx/Main.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Config.pm

@@ -185 +185 @@
 # Window
 setting(
-    name    => 'window_title',
-    type    => Padre::Constant::ASCII,
-    store   => Padre::Constant::HUMAN,
-    default => 'Padre [%p]',
+    name    => 'window_title',
+    type    => Padre::Constant::ASCII,
+    store   => Padre::Constant::HUMAN,
+    default => 'Padre [%p]',
 );
 

trunk/Padre/lib/Padre/Current.pm

@@ -126 +126 @@
     unless ( exists $self->{editor} ) {
         my $notebook = $self->notebook;
-        if (defined($notebook)){
+        if ( defined($notebook) ) {
             my $selected = $notebook->GetSelection;
             if ( $selected == -1 ) {
@@ -137 +137 @@
                     Carp::croak("Failed to find page");
                 }
-        }}
+            }
+        }
     }
     return $self->{editor};

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

@@ -307 +307 @@
 
     my %window_title_vars = (
-     '%p' => 'Project name',
-     '%v' => 'Padre version',
-     '%f' => 'Current filename',
-     '%d' => 'Current files dirname',
-     '%b' => 'Current files basename',
-     '%F' => 'Current filename relative to project',
-    );
-    my @window_title_keys = sort
-        { lc($a) cmp lc($b); }
-        (keys(%window_title_vars));
+        '%p' => 'Project name',
+        '%v' => 'Padre version',
+        '%f' => 'Current filename',
+        '%d' => 'Current files dirname',
+        '%b' => 'Current files basename',
+        '%F' => 'Current filename relative to project',
+    );
+    my @window_title_keys = sort { lc($a) cmp lc($b); } ( keys(%window_title_vars) );
     my $window_title_left;
     my $window_title_right;
-    while ($#window_title_keys > -1) {
+
+    while ( $#window_title_keys > -1 ) {
 
         my $key = shift @window_title_keys;
-        $window_title_left .= 
-            $key .
-            ' => '.
-            Wx::gettext($window_title_vars{$key})."\n";
+        $window_title_left .= $key . ' => ' . Wx::gettext( $window_title_vars{$key} ) . "\n";
 
         last if $#window_title_keys < 0;
 
         $key = shift @window_title_keys;
-        $window_title_right .= 
-            $key .
-            ' => '.
-            Wx::gettext($window_title_vars{$key})."\n";
+        $window_title_right .= $key . ' => ' . Wx::gettext( $window_title_vars{$key} ) . "\n";
 
     }
-    $window_title_left =~ s/\n$//;
+    $window_title_left  =~ s/\n$//;
     $window_title_right =~ s/\n$//;
 
     my $table = [
-        [  [ 'Wx::StaticText',     'undef',       Wx::gettext('Window title:') ],
-            [ 'Wx::TextCtrl', 'window_title', $config->window_title ],
-        ],
-        [  [ 'Wx::StaticText',     'undef',       Wx::gettext($window_title_left) ],
-           [ 'Wx::StaticText',     'undef',       Wx::gettext($window_title_right) ],
+        [   [ 'Wx::StaticText', 'undef',        Wx::gettext('Window title:') ],
+            [ 'Wx::TextCtrl',   'window_title', $config->window_title ],
+        ],
+        [   [ 'Wx::StaticText', 'undef', Wx::gettext($window_title_left) ],
+            [ 'Wx::StaticText', 'undef', Wx::gettext($window_title_right) ],
         ],
         [   [   'Wx::CheckBox', 'main_output_ansi', ( $config->main_output_ansi ? 1 : 0 ),

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -4737 +4737 @@
     # The syntax string could be set in the preferences dialog.
 
-    my $self = shift;
+    my $self   = shift;
     my $config = $self->{config};
 
     my %variable_data = (
-        '%' => '%',
-        'v' => $Padre::VERSION,
-        'f' => '', # Initlize space for filename
-        'b' => '', # Initlize space for filename - basename
-        'd' => '', # Initlize space for filename - dirname
-        'F' => '', # Initlize space for filename relative to project dir
-        'p' => '', # Initlize space for project name
-        );
+        '%' => '%',
+        'v' => $Padre::VERSION,
+        'f' => '',             # Initlize space for filename
+        'b' => '',             # Initlize space for filename - basename
+        'd' => '',             # Initlize space for filename - dirname
+        'F' => '',             # Initlize space for filename relative to project dir
+        'p' => '',             # Initlize space for project name
+    );
 
     # We may run within window startup, there may be no "current" or "document":
-    if (defined($self->current) and defined($self->current->document)) {
+    if ( defined( $self->current ) and defined( $self->current->document ) ) {
         my $document = $self->current->document;
         $variable_data{'f'} = $document->file->{filename};
@@ -4773 +4773 @@
     $self->{title} = $config->window_title;
 
-    my $Vars = join('',keys(%variable_data));
+    my $Vars = join( '', keys(%variable_data) );
 
     $self->{title} =~ s/\%([$Vars])/$variable_data{$1}/g;
 
-    $self->{title} = 'Padre '.$Padre::VERSION
-     if ! defined($self->{title});
+    $self->{title} = 'Padre ' . $Padre::VERSION
+        if !defined( $self->{title} );
 
     my $revision = Padre::Util::revision();