Changeset 7486

Timestamp:

08/23/09 07:09:06 (2 years ago)

Author:

azawawi

Message:

[Padre] Perl 5 'use strict; use warning;' quick fix is brewing

File:

• trunk/Padre/lib/Padre/QuickFixProvider/Perl.pm (modified) (2 diffs)

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

@@ -27 +27 @@
 #
 sub quick_fix_list {
-    return ();
+    my ($self, $doc, $editor) = @_;
+    
+    my @items = ();
+    my $text = $editor->GetText;
+    my $current_line_no = $editor->GetCurrentLine;
+
+    if($text !~ /^\s*use strict/msx) {
+        push @items, {
+            text => qq{Add 'use strict;'},
+            listener => sub {
+                $text = 'use strict;' . $text;
+            }
+        };
+    }
+    if($text !~ /^\s*use warnings/msx) {
+        push @items, {
+            text => qq{Add 'use warnings;'},
+            listener => sub {
+                $text = 'use warnings;' . $text;
+                #$editor->ReplaceSelection(
+            }
+        };
+    }
+
+    return @items;
 }
 
@@ -40 +64 @@
 =head1 DESCRIPTION
 
-Perl 5 quick fix are implemented here
+Perl 5 quick fix feature is implemented here
 
 # Copyright 2008-2009 The Padre development team as listed in Padre.pm.