Changeset 11120

Timestamp:

03/15/10 04:51:54 (5 months 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' );