Changeset 7488

Timestamp:

08/23/09 07:14:03 (2 years ago)

Author:

azawawi

Message:

[Padre] Perl tidy

Location:

trunk/Padre/lib/Padre

Files:

• QuickFixProvider/Perl.pm (modified) (1 diff)
• Wx/Main.pm (modified) (1 diff)
• Wx/Menu/Edit.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/QuickFixProvider/Perl.pm

@@ -27 +27 @@
 #
 sub quick_fix_list {
-    my ($self, $doc, $editor) = @_;
-    
-    my @items = ();
-    my $text = $editor->GetText;
+    my ( $self, $doc, $editor ) = @_;
+
+    my @items           = ();
+    my $text            = $editor->GetText;
     my $current_line_no = $editor->GetCurrentLine;
 
-    if($text !~ /^\s*use strict/msx) {
+    if ( $text !~ /^\s*use strict/msx ) {
         push @items, {
-            text => qq{Add 'use strict;'},
+            text     => qq{Add 'use strict;'},
             listener => sub {
                 $text = 'use strict;' . $text;
-            }
+                }
         };
     }
-    if($text !~ /^\s*use warnings/msx) {
+    if ( $text !~ /^\s*use warnings/msx ) {
         push @items, {
-            text => qq{Add 'use warnings;'},
+            text     => qq{Add 'use warnings;'},
             listener => sub {
                 $text = 'use warnings;' . $text;
+
                 #$editor->ReplaceSelection(
-            }
+                }
         };
     }

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

@@ -2722 +2722 @@
     my $self = shift;
     my $dir  = shift;
-    
+
     if ($dir) {
         $self->{cwd} = $dir;

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

@@ -178 +178 @@
             my @list  = ();
             my @items = ();
-            eval { 
+            eval {
+
                 # Find available quick fixes from provider
-                my $provider = $doc->get_quick_fix_provider; 
-                @items = $provider->quick_fix_list($doc, $editor);
+                my $provider = $doc->get_quick_fix_provider;
+                @items = $provider->quick_fix_list( $doc, $editor );
 
                 # Add quick list items from document's quick fix provider
@@ -188 +189 @@
                 }
             };
-            if($@) {
+            if ($@) {
                 warn "Error while calling get_quick_fix_provider: $@\n";
             }