Changeset 11120

Timestamp:

03/15/10 04:51:54 (2 years ago)

Author:

azawawi

Message:

Perl tidy (25 files)

Location:

trunk/Padre

Files:

• lib/Padre/Action/Edit.pm (modified) (1 diff)
• lib/Padre/Action/Tools.pm (modified) (3 diffs)
• lib/Padre/Document/Perl.pm (modified) (3 diffs)
• lib/Padre/Locale.pm (modified) (1 diff)
• lib/Padre/Plugin/Devel.pm (modified) (2 diffs)
• lib/Padre/SlaveDriver.pm (modified) (2 diffs)
• lib/Padre/Task/Outline/Perl.pm (modified) (1 diff)
• lib/Padre/TaskManager.pm (modified) (2 diffs)
• lib/Padre/Wx/About.pm (modified) (1 diff)
• lib/Padre/Wx/App.pm (modified) (1 diff)
• lib/Padre/Wx/AuiManager.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/HelpSearch.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/OpenResource.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/Replace.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/SpecialValues.pm (modified) (3 diffs)
• lib/Padre/Wx/Dialog/WhereFrom.pm (modified) (8 diffs)
• lib/Padre/Wx/Dialog/WindowList.pm (modified) (1 diff)
• lib/Padre/Wx/Display.pm (modified) (3 diffs)
• lib/Padre/Wx/DocBrowser.pm (modified) (4 diffs)
• lib/Padre/Wx/Editor.pm (modified) (10 diffs)
• lib/Padre/Wx/Main.pm (modified) (3 diffs)
• lib/Padre/Wx/Menu/Edit.pm (modified) (1 diff)
• lib/Padre/Wx/Right.pm (modified) (1 diff)
• t/07-version.t (modified) (1 diff)

trunk/Padre/lib/Padre/Action/Edit.pm

@@ -319 +319 @@
         },
     );
-    
+
     Padre::Action->new(
         name        => 'edit.brace_match_select',

trunk/Padre/lib/Padre/Action/Tools.pm

@@ -253 +253 @@
     # Find 'cpanm', used to install modules
     require Config;
-    my %seen  = ();
-    my @where = grep {
-        defined $_ and length $_ and not $seen{$_}++
-    } map {
-        $Config::Config{$_}
-    } qw{
+    my %seen = ();
+    my @where = grep { defined $_ and length $_ and not $seen{$_}++ } map { $Config::Config{$_} } qw{
         sitescriptexp
         sitebinexp
@@ -267 +263 @@
     };
     my $cpanm = '';
-    foreach my $dir ( @where ) {
+
+    foreach my $dir (@where) {
         my $path = File::Spec->catfile( $dir, 'cpanm' );
         if ( -f $path ) {
@@ -274 +271 @@
         }
     }
-    unless ( $cpanm ) {
+    unless ($cpanm) {
         $main->error( Wx::gettext("cpanm is unexpectedly not installed") );
         return;

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

@@ -346 +346 @@
 # Implemented as a task. See Padre::Task::SyntaxChecker::Perl
 sub check_syntax {
-    shift->_check_syntax_internals( { @_,
-        background => 0 } );
+    shift->_check_syntax_internals(
+        {   @_,
+            background => 0
+        }
+    );
 }
 
 sub check_syntax_in_background {
-    shift->_check_syntax_internals( { @_,
-        background => 1 } );
+    shift->_check_syntax_internals(
+        {   @_,
+            background => 1
+        }
+    );
 }
 
@@ -1294 +1300 @@
     my $first  = $editor->PositionFromLine($line);
     my $col    = $pos - $first;
-    my $text   = $editor->GetTextRange($first, $pos);
+    my $text   = $editor->GetTextRange( $first, $pos );
 
     $editor->AddText( $self->newline );
@@ -1301 +1307 @@
     $editor->AddText($text);
 
-    $editor->SetCurrentPos( $pos + $col + 1);
+    $editor->SetCurrentPos( $pos + $col + 1 );
 
     return 1;

trunk/Padre/lib/Padre/Locale.pm

@@ -68 +68 @@
     my $name = shift;
     require Encode;
-    return $RFC4646{$name}{utf8text} ? Encode::decode('utf8', $RFC4646{$name}{utf8text}) : $name
+    return $RFC4646{$name}{utf8text} ? Encode::decode( 'utf8', $RFC4646{$name}{utf8text} ) : $name;
 }
 

trunk/Padre/lib/Padre/Plugin/Devel.pm

@@ -189 +189 @@
 
     foreach ( 0 .. $count - 1 ) {
-        my $display  = Wx::Display->new($_);
+        my $display = Wx::Display->new($_);
         push @displays,
             {
             IsPrimary     => $display->IsPrimary,
-            GetGeometry   => $self->_rect($display->GetGeometry),
-            GetClientArea => $self->_rect($display->GetClientArea),
+            GetGeometry   => $self->_rect( $display->GetGeometry ),
+            GetClientArea => $self->_rect( $display->GetClientArea ),
             };
     }
     $self->_dump(
-        {  GetCount    => $count,
+        {   GetCount    => $count,
             DisplayList => \@displays,
         }
@@ -207 +207 @@
     my $self = shift;
     my $rect = shift;
-    my %hash = map {
-        $_ => $rect->$_()
-    } qw{
+    my %hash = map { $_ => $rect->$_() } qw{
         GetTop
         GetBottom

trunk/Padre/lib/Padre/SlaveDriver.pm

@@ -128 +128 @@
 
     require Storable;
-    $self->{cmd_queue}->enqueue(
-        Storable::freeze( [ $manager->task_queue ] )
-    );
-
-    return threads->object(
-        $self->{tid_queue}->dequeue
-    );
+    $self->{cmd_queue}->enqueue( Storable::freeze( [ $manager->task_queue ] ) );
+
+    return threads->object( $self->{tid_queue}->dequeue );
 }
 
@@ -243 +239 @@
     while ( my $args = $in->dequeue ) { # args is frozen [$main, $queue]
         last if $args eq 'STOP';
-        my $queue  = Padre::SlaveDriver->new->task_queue;
+        my $queue = Padre::SlaveDriver->new->task_queue;
         my $worker = threads->create( \&_worker_loop, $queue );
         $out->enqueue( $worker->tid );

trunk/Padre/lib/Padre/Task/Outline/Perl.pm

@@ -271 +271 @@
     if ( defined( $pkg->{$type} ) && scalar( @{ $pkg->{$type} } ) > 0 ) {
         my $type_caption = ucfirst($type);
-        if (exists $type_caption{$type}) {
+        if ( exists $type_caption{$type} ) {
             $type_caption = $type_caption{$type};
-        }
-        else {
+        } else {
             warn "Type not translated: $type_caption\n";
         }
-        
+
         $type_elem = $outlinebar->AppendItem(
             $root,

trunk/Padre/lib/Padre/TaskManager.pm

@@ -426 +426 @@
     $self->task_queue->insert( 0, ("STOP") x scalar(@workers) );
 
-    my $waitstart = [gettimeofday()];
+    my $waitstart = [ gettimeofday() ];
 
     # Changing the selection seems to solve the endless-loop problem
@@ -436 +436 @@
 
         # Wait no more than two minutes
-        last    if( tv_interval($waitstart) >= (2*60) );
+        last if ( tv_interval($waitstart) >= ( 2 * 60 ) );
 
         # Pass time slices to the threads for finishing

trunk/Padre/lib/Padre/Wx/About.pm

@@ -98 +98 @@
 
     # Create the content for the About window
-    my $self   = shift;
-    my $splash = Padre::Util::splash();
+    my $self               = shift;
+    my $splash             = Padre::Util::splash();
     my $created_by         = Wx::gettext('Created by');
     my $padre_dev_team     = Wx::gettext('The Padre Development Team');

trunk/Padre/lib/Padre/Wx/App.pm

@@ -50 +50 @@
     my $ide = shift;
     require Params::Util;
-    unless ( Params::Util::_INSTANCE($ide, 'Padre') ) {
+    unless ( Params::Util::_INSTANCE( $ide, 'Padre' ) ) {
         Carp::croak("Did not provide the ide object to Padre::App->create");
     }

trunk/Padre/lib/Padre/Wx/AuiManager.pm

@@ -65 +65 @@
 # Set the lock status of the panels
 sub lock_panels {
-    my $self   = shift;
+    my $self = shift;
     my $unlock = $_[0] ? 0 : 1;
 

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

@@ -393 +393 @@
         $self->_list->Select(0);
     }
-    $self->_status->SetLabel( sprintf(Wx::gettext("Found %s help topic(s)\n"), $pos) );
+    $self->_status->SetLabel( sprintf( Wx::gettext("Found %s help topic(s)\n"), $pos ) );
     $self->_display_help_in_viewer;
 

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

@@ -261 +261 @@
     );
     $self->_popup_menu( Wx::Menu->new );
-    $self->_skip_vcs_files( $self->_popup_menu->AppendCheckItem( -1, Wx::gettext("Skip version control system files") ) );
+    $self->_skip_vcs_files(
+        $self->_popup_menu->AppendCheckItem( -1, Wx::gettext("Skip version control system files") ) );
     $self->_skip_using_manifest_skip(
         $self->_popup_menu->AppendCheckItem( -1, Wx::gettext("Skip using MANIFEST.SKIP") ) );

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

@@ -572 +572 @@
     my $number_of_changes = $main->replace_all($search);
     if ($number_of_changes) {
-        my $message_text = $number_of_changes == 1 ? Wx::gettext('Replaced %d match') : Wx::gettext('Replaced %d matches');
+        my $message_text =
+            $number_of_changes == 1 ? Wx::gettext('Replaced %d match') : Wx::gettext('Replaced %d matches');
+
         # remark: It would be better to use gettext for plural handling, but wxperl does not seem to support this at the moment.
         $main->info(
-            sprintf($message_text,  $number_of_changes),
+            sprintf( $message_text, $number_of_changes ),
             Wx::gettext('Search and Replace')
         );

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

@@ -14 +14 @@
 my $categories = {
     Wx::gettext('Date/Time') => [
-        { label => Wx::gettext('Now'),       action => _get_date_info('now') },
-        { label => Wx::gettext('Today'),     action => _get_date_info('today') },
-        { label => Wx::gettext('Year'),      action => _get_date_info('year') },
-        { label => Wx::gettext('Epoch'),     action => _get_date_info('epoch') },
+        { label => Wx::gettext('Now'),   action => _get_date_info('now') },
+        { label => Wx::gettext('Today'), action => _get_date_info('today') },
+        { label => Wx::gettext('Year'),  action => _get_date_info('year') },
+        { label => Wx::gettext('Epoch'), action => _get_date_info('epoch') },
     ],
     Wx::gettext('File') => [
@@ -92 +92 @@
     my $value_ind = $data->{_find_specialvalue_};
     my $text      = &{ $categories->{$cat_name}[$value_ind]{action} };
+
     #warn "cat : $cat_name, value $value_ind, text : $text\n";
 
@@ -123 +124 @@
         return sub {
             return scalar localtime;
-        }
-    }
-    elsif ( $type eq 'today' ) {
+            }
+    } elsif ( $type eq 'today' ) {
         return sub {
             my @localtime = localtime(time);
             return sprintf "%s-%02s-%02s", $localtime[5] + 1900, $localtime[4], $localtime[3];
-        }
-    }
-    elsif ( $type eq 'year' ) {
+            }
+    } elsif ( $type eq 'year' ) {
         return sub {
             my @localtime = localtime(time);
             return $localtime[5] + 1900;
-        }
-    }
-    elsif ( $type eq 'epoch' ) {
+            }
+    } elsif ( $type eq 'epoch' ) {
         return sub {
             return time;
-        }
-    }
-    else {
+            }
+    } else {
         return sub {
             warn "date info $type not implemented yet\n";
             return '';
-        }
+            }
     }
 }
 
 sub _get_file_info {
-    my $type = shift;
+    my $type     = shift;
     my $document = Padre::Current->document;
-    my ( $lines, $chars_with_space, $chars_without_space, $words, $is_readonly,
-         $filename, $newline_type, $encoding ) = $document->stats;
-    
+    my ($lines,    $chars_with_space, $chars_without_space, $words, $is_readonly,
+        $filename, $newline_type,     $encoding
+    ) = $document->stats;
+
     if ( $type eq 'name' ) {
         return sub {
             return defined $filename ? $filename : Wx::gettext("No filename");
         };
-    }
-    elsif ( $type eq 'size' ) {
+    } elsif ( $type eq 'size' ) {
         return sub {
             my $filename = $document->filename || $document->tempfile;
             return ($filename) ? -s $filename : 0;
         };
-    }
-    elsif ( $type eq 'number of lines' ) {
+    } elsif ( $type eq 'number of lines' ) {
         return sub {
             return $lines;
         };
-    }
-    else {
+    } else {
         return sub {
             warn "file info $type not implemented yet\n";
             return '';
-        }
+            }
     }
 }

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

@@ -9 +9 @@
 our $VERSION = '0.58';
 
-our @ISA     = qw{
+our @ISA = qw{
     Padre::Wx::Role::MainChild
     Wx::Dialog
@@ -18 +18 @@
 
     my $config = Padre->ide->config;
+
     #return if $config->feedback_done;
 
@@ -54 +55 @@
 
 sub _create_controls {
-    my ($dialog, $sizer) = @_;
+    my ( $dialog, $sizer ) = @_;
 
     # "Where did you hear..." label
-    my $wherefrom_label = Wx::StaticText->new( 
-        $dialog, 
-        -1, 
+    my $wherefrom_label = Wx::StaticText->new(
+        $dialog,
+        -1,
         Wx::gettext('Where did you hear about Padre?')
     );
@@ -73 +74 @@
         Wx::gettext('Other (Please fill in here)'),
     ];
-    
-    $dialog->{wherefrom} = Wx::ComboBox->new( 
-        $dialog, 
-        -1, 
-        '', 
+
+    $dialog->{wherefrom} = Wx::ComboBox->new(
+        $dialog,
+        -1,
+        '',
         Wx::wxDefaultPosition,
         Wx::wxDefaultSize,
         $choices
     );
-    
+
     # OK button
     $dialog->{button_ok} = Wx::Button->new(
@@ -91 +92 @@
     # Cancel button
     $dialog->{button_cancel} = Wx::Button->new(
-        $dialog, Wx::wxID_CANCEL, 
+        $dialog, Wx::wxID_CANCEL,
         Wx::gettext("Skip question without giving feedback"),
     );
-    
+
     # where from...? sizer
     my $wherefrom_sizer = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
@@ -103 +104 @@
     # Button sizer
     my $button_sizer = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
-    $button_sizer->Add( $dialog->{button_ok},   0, 0,          0 );
+    $button_sizer->Add( $dialog->{button_ok},     0, 0,          0 );
     $button_sizer->Add( $dialog->{button_cancel}, 0, Wx::wxLEFT, 5 );
     $button_sizer->AddSpacer(5);
@@ -116 +117 @@
     # Wrap with a horizontal sizer to get left/right padding
     $sizer->Add( $vsizer, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
-    
+
     return;
 }
@@ -123 +124 @@
 sub _bind_events {
     my $dialog = shift;
-    
+
     # Ok button
-    Wx::Event::EVT_BUTTON( 
-        $dialog, 
-        $dialog->{button_ok},     
-        \&WhereFrom_ok_clicked 
+    Wx::Event::EVT_BUTTON(
+        $dialog,
+        $dialog->{button_ok},
+        \&WhereFrom_ok_clicked
     );
-    
+
     # Cancel or Skip feedback button
-    Wx::Event::EVT_BUTTON( 
-        $dialog, 
-        $dialog->{button_cancel}, 
+    Wx::Event::EVT_BUTTON(
+        $dialog,
+        $dialog->{button_cancel},
         \&WhereFrom_cancel_clicked
     );

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

@@ -358 +358 @@
             $disk_text = Wx::gettext('CHANGED');
         }
-        $list->SetItem( $idx, 3, $disk_text);
+        $list->SetItem( $idx, 3, $disk_text );
     }
 

trunk/Padre/lib/Padre/Wx/Display.pm

@@ -103 +103 @@
     my $rect   = shift;
     my $ratio  = shift;
-    my $margin = (1 - $ratio) / 2;
+    my $margin = ( 1 - $ratio ) / 2;
     $rect->width( int( $rect->width * $ratio ) );
     $rect->height( int( $rect->height * $ratio ) );
-    $rect->x( $rect->x + int($rect->width  * $margin) );
-    $rect->y( $rect->y + int($rect->height * $margin) );
+    $rect->x( $rect->x + int( $rect->width * $margin ) );
+    $rect->y( $rect->y + int( $rect->height * $margin ) );
     return $rect;
 }
@@ -116 +116 @@
     my $rect    = shift;
     my $ratio   = shift;
-    my $marginr = (1 - $ratio) / 2;
-    my $marginx = int($rect->width  * $marginr);
-    my $marginy = int($rect->height * $marginr);
-    my $margin  = ($marginx > $marginy) ? $marginy : $marginx;
+    my $marginr = ( 1 - $ratio ) / 2;
+    my $marginx = int( $rect->width * $marginr );
+    my $marginy = int( $rect->height * $marginr );
+    my $margin  = ( $marginx > $marginy ) ? $marginy : $marginx;
     $rect->width( $rect->width - $margin * 2 );
     $rect->height( $rect->height - $margin * 2 );
@@ -130 +130 @@
 sub _rect_golden {
     my $rect = shift;
-    if ( $rect->width > ($rect->height * GOLDEN) ) {
+    if ( $rect->width > ( $rect->height * GOLDEN ) ) {
+
         # Shrink left from the right
-        $rect->width( int($rect->height / GOLDEN) );
+        $rect->width( int( $rect->height / GOLDEN ) );
     } else {
+
         # Shrink up from the bottom
-        $rect->height( int($rect->width / GOLDEN) );
+        $rect->height( int( $rect->width / GOLDEN ) );
     }
     return $rect;

trunk/Padre/lib/Padre/Wx/DocBrowser.pm

@@ -111 +111 @@
         Wx::wxTE_PROCESS_ENTER
     );
-    $entry->SetToolTip( Wx::ToolTip->new(Wx::gettext('Search for perldoc - e.g. Padre::Task, Net::LDAP')) );
+    $entry->SetToolTip( Wx::ToolTip->new( Wx::gettext('Search for perldoc - e.g. Padre::Task, Net::LDAP') ) );
 
     Wx::Event::EVT_TEXT_ENTER(
@@ -128 +128 @@
         Wx::wxALIGN_RIGHT
     );
-    $label->SetToolTip( Wx::ToolTip->new(Wx::gettext('Search for perldoc - e.g. Padre::Task, Net::LDAP')) );
+    $label->SetToolTip( Wx::ToolTip->new( Wx::gettext('Search for perldoc - e.g. Padre::Task, Net::LDAP') ) );
 
     my $close_button = Wx::Button->new( $self, Wx::wxID_CANCEL, Wx::gettext('&Close') );
@@ -369 +369 @@
             $panel;
         } else {
-            $self->debug( sprintf(Wx::gettext('DocBrowser: no viewer for %s'), $mime) );
+            $self->debug( sprintf( Wx::gettext('DocBrowser: no viewer for %s'), $mime ) );
         }
     };
@@ -402 +402 @@
     my $notFound = Wx::MessageDialog->new(
         $self,
-        sprintf(Wx::gettext("Searched for '%s' and failed..."), $query),
+        sprintf( Wx::gettext("Searched for '%s' and failed..."), $query ),
         Wx::gettext('Help not found.'),
         wxOK | wxCENTRE | wxICON_INFORMATION

trunk/Padre/lib/Padre/Wx/Editor.pm

@@ -44 +44 @@
 # Brace* methods
 # always altern opening and starting braces in the constant
-my $BRACES = '{}[]()';
-my $STC_INVALID_POSITION =  Wx::wxSTC_INVALID_POSITION;
+my $BRACES               = '{}[]()';
+my $STC_INVALID_POSITION = Wx::wxSTC_INVALID_POSITION;
 
 my $data;
@@ -169 +169 @@
 # return the character at a given position as a perl string
 sub get_character_at {
-    my ($self, $pos) = @_;
+    my ( $self, $pos ) = @_;
     return chr( $self->GetCharAt($pos) );
 }
@@ -424 +424 @@
 
 
-    
-    
-
 
 
@@ -456 +453 @@
 
 sub get_brace_info {
-    my ($self, $pos) = @_;
+    my ( $self, $pos ) = @_;
     $pos = $self->GetCurrentPos unless defined $pos;
-     
+
     # try the after position first (default one for BraceMatch)
     my $is_after = 1;
-    my $brace = $self->get_character_at($pos);
+    my $brace    = $self->get_character_at($pos);
     my $is_brace = $self->get_brace_type($brace);
-    if (!$is_brace && $pos > 0) { # try the before position
-        $brace = $self->get_character_at(--$pos);
-        $is_brace  = $self->get_brace_type($brace) or return undef;
+    if ( !$is_brace && $pos > 0 ) { # try the before position
+        $brace    = $self->get_character_at( --$pos );
+        $is_brace = $self->get_brace_type($brace) or return undef;
         $is_after = 0;
     }
     my $is_opening = $is_brace % 2; # odd values are opening
-    return [$pos, $brace, $is_after, $is_opening];
+    return [ $pos, $brace, $is_after, $is_opening ];
 }
 
@@ -485 +482 @@
 
 =cut
+
 my %_cached_braces;
+
 sub get_brace_type {
-    my ($self, $char) = @_;
+    my ( $self, $char ) = @_;
     unless (%_cached_braces) {
         my $i = 1; # start from one so that all values are true
-        $_cached_braces{$_} = $i++ foreach (split //, $BRACES);
+        $_cached_braces{$_} = $i++ foreach ( split //, $BRACES );
     }
     my $v = $_cached_braces{$char} or return 0;
@@ -501 +500 @@
 # {} : never highlighted
 # { } : always correct
-# 
 #
+#
 
 sub apply_style {
-    my ($self, $style_info) = @_;
+    my ( $self, $style_info ) = @_;
     my %previous_style = %$style_info;
-    $previous_style{style} = $self->GetStyleAt($style_info->{start});
-    
+    $previous_style{style} = $self->GetStyleAt( $style_info->{start} );
+
     $self->StartStyling( $style_info->{start}, 0xFF );
     $self->SetStyling( $style_info->{len}, $style_info->{style} );
-    
+
     return \%previous_style;
 }
@@ -517 +516 @@
 
 my $previous_expr_hiliting_style;
+
 sub highlight_braces {
     my ($self) = @_;
-    
+
     my $expression_highlighting = $self->get_config->editor_brace_expression_highlighting;
-    
+
     # remove current highlighting if any
-    $self->BraceHighlight( $STC_INVALID_POSITION, $STC_INVALID_POSITION  );
+    $self->BraceHighlight( $STC_INVALID_POSITION, $STC_INVALID_POSITION );
     if ($previous_expr_hiliting_style) {
         $self->apply_style($previous_expr_hiliting_style);
         $previous_expr_hiliting_style = undef;
     }
-    
-    my $pos1 = $self->GetCurrentPos;
-    my $info1 = $self->get_brace_info($pos1) or return;
+
+    my $pos1          = $self->GetCurrentPos;
+    my $info1         = $self->get_brace_info($pos1) or return;
     my ($actual_pos1) = @$info1;
-    
+
     my $actual_pos2 = $self->BraceMatch($actual_pos1);
-#   return if abs( $pos1 - $pos2 ) < 2;
+
+    #   return if abs( $pos1 - $pos2 ) < 2;
 
     return if $actual_pos2 == $STC_INVALID_POSITION; #Wx::wxSTC_INVALID_POSITION  #????
 
     $self->BraceHighlight( $actual_pos1, $actual_pos2 );
-    
+
     if ($expression_highlighting) {
-        my $pos2  = $self->find_matching_brace($pos1) or return;
-        my %style = (start => $pos1 < $pos2 ? $pos1 : $pos2, 
-            len => abs($pos1-$pos2), style => Wx::wxSTC_STYLE_DEFAULT);
-        $previous_expr_hiliting_style = $self->apply_style(\%style);
+        my $pos2 = $self->find_matching_brace($pos1) or return;
+        my %style = (
+            start => $pos1 < $pos2 ? $pos1 : $pos2,
+            len => abs( $pos1 - $pos2 ), style => Wx::wxSTC_STYLE_DEFAULT
+        );
+        $previous_expr_hiliting_style = $self->apply_style( \%style );
     }
 
@@ -564 +567 @@
 
 =cut
+
 sub find_matching_brace {
-    my ($self, $pos) = @_;
+    my ( $self, $pos ) = @_;
     $pos = $self->GetCurrentPos unless defined $pos;
     my $info1 = $self->get_brace_info($pos) or return;
-    my ($actual_pos1, $brace, $is_after, $is_opening) = @$info1;
-    
+    my ( $actual_pos1, $brace, $is_after, $is_opening ) = @$info1;
+
     my $actual_pos2 = $self->BraceMatch($actual_pos1);
     return if $actual_pos2 == $STC_INVALID_POSITION;
@@ -587 +591 @@
 
 =cut
+
 sub goto_matching_brace {
-    my ($self, $pos) = @_;
-    my $pos2  = $self->find_matching_brace($pos) or return;
+    my ( $self, $pos ) = @_;
+    my $pos2 = $self->find_matching_brace($pos) or return;
     $self->GotoPos($pos2);
 }
@@ -606 +611 @@
 
 sub select_to_matching_brace {
-    my ($self, $pos) = @_;
+    my ( $self, $pos ) = @_;
     $pos = $self->GetCurrentPos unless defined $pos;
-    my $pos2  = $self->find_matching_brace($pos) or return;
-    my $start = ($pos < $pos2) ? $self->GetSelectionStart() : $self->GetSelectionEnd();
-    $self->SetSelection($start, $pos2);
-        
-}
-        
+    my $pos2 = $self->find_matching_brace($pos) or return;
+    my $start = ( $pos < $pos2 ) ? $self->GetSelectionStart() : $self->GetSelectionEnd();
+    $self->SetSelection( $start, $pos2 );
+
+}
+
 # currently if there are 9 lines we set the margin to 1 width and then
 # if another line is added it is not seen well.

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

@@ -109 +109 @@
     # the previous size is completely suspect.
     if ( $config->main_maximized ) {
-        $style   |= Wx::wxMAXIMIZE;
+        $style |= Wx::wxMAXIMIZE;
         $size     = [ -1, -1 ];
         $position = [ -1, -1 ];
@@ -117 +117 @@
     if ( $size->[0] == -1 ) {
         require Padre::Wx::Display;
-        my $rect  = Padre::Wx::Display::primary_default();
+        my $rect = Padre::Wx::Display::primary_default();
         $size     = $rect->GetSize;
         $position = $rect->GetPosition;
@@ -352 +352 @@
     $manager->alert_new;
 
-    unless ( $Padre::Test::VERSION ) {
+    unless ($Padre::Test::VERSION) {
         require Padre::Wx::Dialog::WhereFrom;
         Padre::Wx::Dialog::WhereFrom->new($self);

trunk/Padre/lib/Padre/Wx/Menu/Edit.pm

@@ -163 +163 @@
         'edit.brace_match',
     );
-    
+
     $self->{brace_match_select} = $self->add_menu_action(
         $self,

trunk/Padre/lib/Padre/Wx/Right.pm

@@ -16 +16 @@
 
 sub new {
-    my $class = shift;
-    my $main  = shift;
-    my $aui   = $main->aui;
+    my $class  = shift;
+    my $main   = shift;
+    my $aui    = $main->aui;
     my $unlock = $main->config->main_lockinterface ? 0 : 1;
 

trunk/Padre/t/07-version.t

@@ -10 +10 @@
 # Search for Padre version
 use_ok('Padre');
-ok($Padre::VERSION,'Check Padre module version');
+ok( $Padre::VERSION, 'Check Padre module version' );
 
 my $ext_vers = `$^X script/padre --version`;
-like($ext_vers,qr/Perl Application Development and Refactoring Environment/,'Version string text');
-like($ext_vers,qr/$Padre::VERSION/,'Version number');
+like( $ext_vers, qr/Perl Application Development and Refactoring Environment/, 'Version string text' );
+like( $ext_vers, qr/$Padre::VERSION/, 'Version number' );