Changeset 4179


Ignore:
Timestamp:
04/28/09 03:08:17 (3 years ago)
Author:
szabgab
Message:

run perltidy before releasing

Location:
trunk/Padre/lib
Files:
18 edited

Legend:

Unmodified
Added
Removed

  • trunk/Padre/lib/Padre.pm

    r4178 r4179  
    120120    # Create the empty object 
    121121    my $self = $SINGLETON = bless { 
     122 
    122123        # parsed command-line options 
    123124        opts => \%opts, 
    … …  
    131132        # Project Attributes 
    132133        project => {}, 
    133          
     134 
    134135    }, $class; 
    135136 

  • trunk/Padre/lib/Padre/Config.pm

    r4178 r4179  
    153153        [ 'logging',       $BOOLEAN, 0 ], 
    154154        [ 'logging_trace', $BOOLEAN, 0 ], 
    155          
     155 
    156156        # -- default run parameters 
    157157        [ 'run_interpreter_args_default', $ASCII, '' ], 
    158158        [ 'run_script_args_default',      $ASCII, '' ], 
     159 
    159160        #[ 'run_default_workdir',          $ASCII, '' ], 
    160161    ], 

  • trunk/Padre/lib/Padre/DB/Session.pm

    r4178 r4179  
    1414 
    1515sub last_padre_session { 
     16 
    1617    # find last padre session 
    1718    my ($padre) = Padre::DB::Session->select( 
    … …  
    3132    return $padre; 
    3233} 
    33  
    3434 
    3535sub files { 

  • trunk/Padre/lib/Padre/Document.pm

    r4178 r4179  
    339339    return if not $text; 
    340340    return 1 if $text =~ /^=begin\s+pod/msx; 
    341     return   if $text =~ /^=head[12]/msx;       # needed for eg/perl5_with_perl6_example.pod 
     341    return   if $text =~ /^=head[12]/msx;                               # needed for eg/perl5_with_perl6_example.pod 
    342342    return 1 if $text =~ /^\s*use\s+v6;/msx; 
    343343    return 1 if $text =~ /^\s*(?:class|grammar|module|role)\s+\w/msx; 
    … …  
    562562 
    563563    $self->create_tempfile unless $self->tempfile; 
    564      
     564 
    565565    open FH, ">", $self->tempfile; 
    566566    print FH $self->text_get; 
    … …  
    572572sub create_tempfile { 
    573573    use File::Temp; 
    574      
     574 
    575575    my $tempfile = File::Temp->new( UNLINK => 0 ); 
    576576    $_[0]->set_tempfile( $tempfile->filename ); 
    577577    close $tempfile; 
    578      
     578 
    579579    return; 
    580580} 

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

    r4178 r4179  
    279279 
    280280    # Use a temporary file if run_save is set to 'unsaved' 
    281     my $filename = $config->run_save eq 'unsaved' && !$self->is_saved 
     281    my $filename 
     282        = $config->run_save eq 'unsaved' && !$self->is_saved 
    282283        ? $self->store_in_tempfile 
    283284        : $self->filename; 
    … …  
    290291    my %run_args = ( 
    291292        interpreter => $config->run_interpreter_args_default, 
    292         script => $config->run_script_args_default, 
     293        script      => $config->run_script_args_default, 
    293294    ); 
    294295 

  • trunk/Padre/lib/Padre/Plugin.pm

    r4178 r4179  
    4545use strict; 
    4646use warnings; 
    47 use Carp         (); 
     47use Carp (); 
    4848use File::Spec::Functions qw{ catdir }; 
    49 use File::ShareDir        (); 
    50 use Scalar::Util (); 
    51 use Params::Util ( '_HASH0', '_INSTANCE' ); 
    52 use YAML::Tiny   (); 
    53 use Padre::DB    (); 
    54 use Padre::Wx    (); 
     49use File::ShareDir (); 
     50use Scalar::Util   (); 
     51use Params::Util   ( '_HASH0', '_INSTANCE' ); 
     52use YAML::Tiny     (); 
     53use Padre::DB      (); 
     54use Padre::Wx      (); 
    5555 
    5656our $VERSION    = '0.34'; 
    … …  
    121121    my $distdir; 
    122122    eval { $distdir = File::ShareDir::dist_dir($pkg); }; 
    123     return $@ ? undef : catdir( $distdir, 'share', 'locale' ) 
    124 } 
    125  
     123    return $@ ? undef : catdir( $distdir, 'share', 'locale' ); 
     124} 
    126125 
    127126=head2 padre_interfaces 

  • trunk/Padre/lib/Padre/PluginHandle.pm

    r4178 r4179  
    157157    # add the plugin catalog to the locale 
    158158    my $locale = Padre::Current->main->{locale}; 
    159     my $code = Padre::Locale::rfc4646(); 
    160     my $name = $self->name; 
    161     $locale->AddCatalog( "$name-$code" ); 
     159    my $code   = Padre::Locale::rfc4646(); 
     160    my $name   = $self->name; 
     161    $locale->AddCatalog("$name-$code"); 
    162162 
    163163    # Call the enable method for the object 

  • trunk/Padre/lib/Padre/PluginManager.pm

    r4178 r4179  
    3131use Params::Util qw{_IDENTIFIER _CLASS _INSTANCE}; 
    3232use Padre::Config::Constants qw{ :dirs }; 
    33 use Padre::Current       (); 
     33use Padre::Current           (); 
    3434use Padre::Util              (); 
    3535use Padre::PluginHandle      (); 
    … …  
    140140 
    141141    foreach my $plugin ( $self->plugin_objects ) { 
     142 
    142143        # only process enabled plugins 
    143144        next unless $plugin->status eq 'enabled'; 
    … …  
    146147        my $object    = $plugin->{object}; 
    147148        my $localedir = $object->plugin_locale_directory 
    148             if $object->can( 'plugin_locale_directory' ); 
    149         $locale->AddCatalogLookupPathPrefix( $localedir ) 
     149            if $object->can('plugin_locale_directory'); 
     150        $locale->AddCatalogLookupPathPrefix($localedir) 
    150151            if defined $localedir && -d $localedir; 
    151152 
    … …  
    153154        my $name = $plugin->name; 
    154155        my $code = Padre::Locale::rfc4646(); 
    155         $locale->AddCatalog( "$name-$code" ); 
     156        $locale->AddCatalog("$name-$code"); 
    156157    } 
    157158} 
    … …  
    561562    # add a new directory for locale to search translation catalogs. 
    562563    my $localedir = $object->plugin_locale_directory 
    563         if $object->can( 'plugin_locale_directory' ); 
     564        if $object->can('plugin_locale_directory'); 
    564565    if ( defined $localedir && -d $localedir ) { 
    565566        my $locale = Padre::Current->main->{locale}; 
    566         $locale->AddCatalogLookupPathPrefix( $localedir ); 
     567        $locale->AddCatalogLookupPathPrefix($localedir); 
    567568    } 
    568569 
    … …  
    869870 
    870871    # Unload any previously existant plugin with the same name 
    871     if ($plugins->{$filename}) { 
    872         $self->unload_plugin($filename); 
    873         delete $plugins->{$filename}; 
    874     } 
     872    if ( $plugins->{$filename} ) { 
     873        $self->unload_plugin($filename); 
     874        delete $plugins->{$filename}; 
     875    } 
    875876 
    876877    # Load the selected plugin 

  • trunk/Padre/lib/Padre/Wx/Dialog/PluginManager.pm

    r4178 r4179  
    488488            # ... and enabled 
    489489            $button->SetLabel( Wx::gettext('Disable') ); 
    490             $self->_action( '_plugin_disable' ); 
     490            $self->_action('_plugin_disable'); 
    491491            $button->Enable; 
    492492            $item->SetText( Wx::gettext('enabled') ); 
    … …  
    498498            # ... and disabled 
    499499            $button->SetLabel( Wx::gettext('Enable') ); 
    500             $self->_action( '_plugin_enable' ); 
     500            $self->_action('_plugin_enable'); 
    501501            $button->Enable; 
    502502            $item->SetText( Wx::gettext('disabled') ); 

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

    r4178 r4179  
    304304    my $config   = Padre->ide->config; 
    305305    my $document = Padre::Current->document; 
    306      
     306 
    307307    my $intrp_args_text = Wx::gettext(<<'END_TEXT'); 
    308308i.e. 
    … …  
    316316    # Default values stored in host configuration 
    317317    my $defaults_table = [ 
    318         [   [ 'Wx::StaticText', undef, Wx::gettext('Interpreter arguments:') ], 
    319             [ 'Wx::TextCtrl', 'run_interpreter_args_default', $config->run_interpreter_args_default ] 
     318        [   [ 'Wx::StaticText', undef,                          Wx::gettext('Interpreter arguments:') ], 
     319            [ 'Wx::TextCtrl',   'run_interpreter_args_default', $config->run_interpreter_args_default ] 
    320320        ], 
    321321        [   [ 'Wx::StaticText', undef, '' ], 
    322             ['Wx::StaticText', undef, $intrp_args_text ] 
    323         ], 
    324         [   [ 'Wx::StaticText', undef, Wx::gettext('Script arguments:') ], 
    325             [ 'Wx::TextCtrl', 'run_script_args_default', $config->run_script_args_default ] 
     322            [ 'Wx::StaticText', undef, $intrp_args_text ] 
     323        ], 
     324        [   [ 'Wx::StaticText', undef,                     Wx::gettext('Script arguments:') ], 
     325            [ 'Wx::TextCtrl',   'run_script_args_default', $config->run_script_args_default ] 
    326326        ], 
    327327    ]; 
    328328 
    329329    # Per document values (overwrite defaults) stored in history 
    330     my $doc_flag = 0;  # value of 1 means that there is no document currently open 
     330    my $doc_flag = 0;                        # value of 1 means that there is no document currently open 
    331331    my $filename = Wx::gettext('Unsaved'); 
    332332    my $path     = Wx::gettext('N/A'); 
    333333    my %run_args = ( 
    334334        interpreter => '', 
    335         script => '', 
     335        script      => '', 
    336336    ); 
    337337 
    338338    # Trap exception if there is no document currently open 
    339339    eval { 
    340         unless ( $document->is_new ) { 
    341             ($filename, $path) = File::Basename::fileparse( Padre::Current->filename ); 
     340        unless ( $document->is_new ) 
     341        { 
     342            ( $filename, $path ) = File::Basename::fileparse( Padre::Current->filename ); 
    342343            foreach my $arg ( keys %run_args ) { 
    343344                my $type = "run_${arg}_args_${filename}"; 
    … …  
    351352        $doc_flag = 1; 
    352353    } 
    353      
     354 
    354355    my $currentdoc_table = [ 
    355356        [   [ 'Wx::StaticText', undef, Wx::gettext('Document name:') ], 
    … …  
    359360            [ 'Wx::TextCtrl', undef, $path, Wx::wxTE_READONLY ] 
    360361        ], 
    361         [   [ 'Wx::StaticText', undef, Wx::gettext('Interpreter arguments:') ], 
    362             [ 'Wx::TextCtrl', "run_interpreter_args_$filename", $run_args{interpreter} ] 
     362        [   [ 'Wx::StaticText', undef,                            Wx::gettext('Interpreter arguments:') ], 
     363            [ 'Wx::TextCtrl',   "run_interpreter_args_$filename", $run_args{interpreter} ] 
    363364        ], 
    364365        [   [ 'Wx::StaticText', undef, '' ], 
    365             ['Wx::StaticText', undef, $intrp_args_text ] 
    366         ], 
    367         [   [ 'Wx::StaticText', undef, Wx::gettext('Script arguments:') ], 
    368             [ 'Wx::TextCtrl', "run_script_args_$filename", $run_args{script} ] 
     366            [ 'Wx::StaticText', undef, $intrp_args_text ] 
     367        ], 
     368        [   [ 'Wx::StaticText', undef,                       Wx::gettext('Script arguments:') ], 
     369            [ 'Wx::TextCtrl',   "run_script_args_$filename", $run_args{script} ] 
    369370        ], 
    370371    ]; 
    … …  
    392393    ); 
    393394 
    394     $main_sizer->Add($notebook, 1, Wx::wxGROW); 
     395    $main_sizer->Add( $notebook, 1, Wx::wxGROW ); 
    395396    $panel->SetSizerAndFit($main_sizer); 
    396397 
    … …  
    434435    my $appearance = $self->_appearance_panel($tb); 
    435436    $tb->AddPage( $appearance, Wx::gettext('Appearance') ); 
    436     $tb->AddPage( $self->_run_params_panel($tb), 
    437         Wx::gettext('Run Parameters') ); 
     437    $tb->AddPage( 
     438        $self->_run_params_panel($tb), 
     439        Wx::gettext('Run Parameters') 
     440    ); 
    438441 
    439442    #my $plugin_manager = $self->_pluginmanager_panel($tb); 
    … …  
    622625        $data->{run_script_args_default} 
    623626    ); 
    624      
     627 
    625628    # Quite like in _run_params_panel, trap exception if there 
    626629    # is no document currently open 
    627630    eval { 
    628         unless ( Padre::Current->document->is_new ) { 
     631        unless ( Padre::Current->document->is_new ) 
     632        { 
     633 
    629634            # These are a bit different as run_* variable name depends 
    630635            # on current document's filename 
    631             foreach ( grep {/^run_/ && !/_default$/} (keys %$data) ) { 
    632                 next if Padre::DB::History->previous($_) 
    633                     eq $data->{$_}; 
     636            foreach ( grep { /^run_/ && !/_default$/ } ( keys %$data ) ) { 
     637                next if Padre::DB::History->previous($_) eq $data->{$_}; 
    634638                Padre::DB::History->create( 
    635639                    type => $_, 
    636640                    name => $data->{$_}, 
    637                 ) 
     641                ); 
    638642            } 
    639643        } 

  • trunk/Padre/lib/Padre/Wx/Dialog/SessionManager.pm

    r4178 r4179  
    3737        Wx::wxDefaultPosition, 
    3838        Wx::wxDefaultSize, 
    39         Wx::wxDEFAULT_FRAME_STYLE|Wx::wxTAB_TRAVERSAL, 
     39        Wx::wxDEFAULT_FRAME_STYLE | Wx::wxTAB_TRAVERSAL, 
    4040    ); 
    4141    $self->SetIcon( Wx::GetWxPerlIcon() ); 
    … …  
    237237 
    238238    # the buttons 
    239     my $bo = Wx::Button->new( $self, -1, Wx::gettext('Open') ); 
    240     my $bd = Wx::Button->new( $self, -1, Wx::gettext('Delete') ); 
     239    my $bo = Wx::Button->new( $self, -1,              Wx::gettext('Open') ); 
     240    my $bd = Wx::Button->new( $self, -1,              Wx::gettext('Delete') ); 
    241241    my $bc = Wx::Button->new( $self, Wx::wxID_CANCEL, Wx::gettext('Close') ); 
    242242    $self->_butopen($bo); 

  • trunk/Padre/lib/Padre/Wx/Dialog/SessionSave.pm

    r4178 r4179  
    99 
    1010use Class::XSAccessor accessors => { 
    11     _butsave => '_butsave',  # save button 
    12     _combo   => '_combo',    # combo box holding the session names 
    13     _names   => '_names',    # list of all session names 
    14     _sizer   => '_sizer',    # the window sizer 
    15     _text    => '_text',     # text control holding the description 
     11    _butsave => '_butsave',    # save button 
     12    _combo   => '_combo',      # combo box holding the session names 
     13    _names   => '_names',      # list of all session names 
     14    _sizer   => '_sizer',      # the window sizer 
     15    _text    => '_text',       # text control holding the description 
    1616}; 
    1717use Padre::Wx (); 
    … …  
    3333        Wx::wxDefaultPosition, 
    3434        Wx::wxDefaultSize, 
    35         Wx::wxDEFAULT_FRAME_STYLE|Wx::wxTAB_TRAVERSAL, 
     35        Wx::wxDEFAULT_FRAME_STYLE | Wx::wxTAB_TRAVERSAL, 
    3636    ); 
    3737    $self->SetIcon( Wx::GetWxPerlIcon() ); 
    … …  
    7373    my $main    = $self->GetParent; 
    7474    my $session = $self->_current_session; 
    75      
     75 
    7676    if ( defined $session ) { 
     77 
    7778        # session exist, remove all files associated to it 
    7879        Padre::DB::SessionFile->delete( 
    … …  
    8182        ); 
    8283    } else { 
     84 
    8385        # session did not exist, create a new one 
    8486        $session = Padre::DB::Session->new( 
    … …  
    8991        $session->insert; 
    9092    } 
    91      
     93 
    9294    # capture session and save it 
    9395    my @session = $main->capture_session; 
    … …  
    126128    my ( $self, $event ) = @_; 
    127129 
    128     my $name   = $self->_combo->GetValue; 
     130    my $name = $self->_combo->GetValue; 
    129131    my $method = $name ? 'Enable' : 'Disable'; 
    130132    $self->_butsave->$method; 

  • trunk/Padre/lib/Padre/Wx/Directory.pm

    r4178 r4179  
    9393 
    9494sub list_dir { 
    95     my ($dir, $depth) = @_; 
     95    my ( $dir, $depth ) = @_; 
    9696    my @data; 
    9797    $depth ||= 1; 
    … …  
    9999    # avoid deep recursion 
    100100    # TODO: make this more clever then simply stopping after 10 levels 
    101     return if $depth > 10;  
     101    return if $depth > 10; 
    102102    if ( opendir my $dh, $dir ) { 
    103103        my @items = sort grep { not $SKIP{$_} } readdir $dh; 
    … …  
    109109            ); 
    110110            if ( -d $path ) { 
    111                 $item{subdir} = list_dir($path, $depth+1); 
     111                $item{subdir} = list_dir( $path, $depth + 1 ); 
    112112            } 
    113113            push @data, \%item; 
    … …  
    205205sub _update_treectrl { 
    206206    my ( $dir, $data, $root ) = @_; 
    207 #warn "_update_treectrl @_"; 
     207 
     208    #warn "_update_treectrl @_"; 
    208209 
    209210    foreach my $pkg ( @{$data} ) { 

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

    r4178 r4179  
    769769 
    770770    Padre::Util::debug( "Focus received file: " . ( $doc->filename || '' ) ); 
    771      
     771 
    772772    # to show/hide the document specific Perl menu 
    773773    $self->main->refresh_menu; 

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

    r4178 r4179  
    313313    # explicit session on command line takes precedence 
    314314    if ( defined $ide->opts->{session} ) { 
     315 
    315316        # try to find the wanted session... 
    316         my ($session) = Padre::DB::Session->select( 
    317             'where name = ?', $ide->opts->{session} 
    318         ); 
     317        my ($session) = Padre::DB::Session->select( 'where name = ?', $ide->opts->{session} ); 
     318 
    319319        # ... and open it. 
    320320        if ( defined $session ) { 
    321321            $self->open_session($session); 
    322322        } else { 
    323             my $error = 
    324                 sprintf Wx::gettext('No such session %s'), 
     323            my $error 
     324                = sprintf Wx::gettext('No such session %s'), 
    325325                $ide->opts->{session}; 
    326326            $self->error($error); 
    … …  
    328328        return; 
    329329    } 
    330      
     330 
    331331    # otherwise, an explicit list on the command line overrides configuration 
    332332    my $files = Padre->ide->{ARGV}; 
    … …  
    464464 
    465465    my $current = $self->current; 
     466 
    466467    #$self->refresh_menu; 
    467468    $self->refresh_toolbar($current); 
    … …  
    12411242            return; 
    12421243        } 
     1244 
    12431245        # if file does not exist, create it so that future access 
    12441246        # (such as size checking) won't warn / blow up padre 
    … …  
    13791381        next unless -f $filename; 
    13801382        my $id = $self->setup_editor($filename); 
    1381         next unless $id; # documents already opened have undef $id 
     1383        next unless $id;    # documents already opened have undef $id 
    13821384        Padre::Util::debug("Setting focus on $filename"); 
    13831385        $focus = $id if $document->focus; 
    … …  
    13851387    } 
    13861388    $self->on_nth_pane($focus) if defined $focus; 
    1387      
     1389 
    13881390    # now we can redraw 
    13891391    $self->Thaw; 
    … …  
    23372339    # TODO move this to a more appropriate place (when switching between buffers?) 
    23382340    if ( my $directory = $self->directory ) { 
    2339         if ($self->menu->view->{directory}->IsChecked) { 
     2341        if ( $self->menu->view->{directory}->IsChecked ) { 
    23402342            $directory->update_gui; 
    23412343        } 

  • trunk/Padre/lib/Padre/Wx/Menu/View.pm

    r4178 r4179  
    1111use Padre::Wx::Menu (); 
    1212use Padre::Current qw{_CURRENT}; 
    13 use File::Glob ':glob'; # Fix win32 globbing problem with spaces in paths 
     13use File::Glob ':glob';    # Fix win32 globbing problem with spaces in paths 
    1414 
    1515our $VERSION = '0.34'; 

  • trunk/Padre/lib/Padre/Wx/Menubar.pm

    r4178 r4179  
    7979    $self->wx->Append( $self->help->wx,    Wx::gettext("&Help") ); 
    8080 
    81     Wx::Event::EVT_MENU_OPEN( $main, sub { 
    82         Padre->ide->wx->main->menu->refresh(); 
    83     }); 
     81    Wx::Event::EVT_MENU_OPEN( 
     82        $main, 
     83        sub { 
     84            Padre->ide->wx->main->menu->refresh(); 
     85        } 
     86    ); 
    8487 
    8588    my $config = Padre->ide->config; 

  • trunk/Padre/lib/Padre/Wx/Outline.pm

    r4178 r4179  
    129129    my $page = $self->main->current->editor; 
    130130    my $item = $self->GetPlData( $self->GetSelection() ); 
    131     if(defined $item) { 
    132         $self->select_line_in_editor($item->{line}); 
     131    if ( defined $item ) { 
     132        $self->select_line_in_editor( $item->{line} ); 
    133133    } 
    134134    return; 
    … …  
    138138    my ( $self, $event ) = @_; 
    139139    my $item = $self->GetPlData( $event->GetItem ); 
    140     if(defined $item) { 
    141         $self->select_line_in_editor($item->{line}); 
     140    if ( defined $item ) { 
     141        $self->select_line_in_editor( $item->{line} ); 
    142142    } 
    143143    return; 
    … …  
    145145 
    146146sub select_line_in_editor { 
    147     my ($self, $line_number) = @_; 
     147    my ( $self, $line_number ) = @_; 
    148148    my $page = $self->main->current->editor; 
    149     if(defined $line_number && 
    150         ($line_number =~ /^\d+$/o) && 
    151             (defined $page) &&  
    152             ($line_number <= $page->GetLineCount)) 
     149    if (   defined $line_number 
     150        && ( $line_number =~ /^\d+$/o ) 
     151        && ( defined $page ) 
     152        && ( $line_number <= $page->GetLineCount ) ) 
    153153    { 
    154154        $line_number--; 
Note: See TracChangeset for help on using the changeset viewer.