Changeset 7481

Timestamp:

08/23/09 06:43:22 (2 years ago)

Author:

azawawi

Message:

[Padre] The story of Perl 5's quick fix begins...

Location:

trunk/Padre/lib/Padre

Files:

• Document/Perl.pm (modified) (1 diff)
• QuickFixProvider.pm (modified) (1 diff)
• QuickFixProvider/Perl.pm (modified) (2 diffs)

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

@@ -846 +846 @@
 }
 
+#
+# Returns Perl's Quick Fix Provider
+#
+sub get_quick_fix_provider {
+    require Padre::QuickFixProvider::Perl;
+    return Padre::QuickFixProvider::Perl->new;
+}
+
 1;
 

trunk/Padre/lib/Padre/QuickFixProvider.pm

@@ -20 +20 @@
 }
 
+#
+# Returns the quick fix list
+#
+sub quick_fix_list {
+    warn "quick_fix_list, You need to override this to do something useful with quick fix";
+    return ();
+}
+
 1;
 

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

@@ -5 +5 @@
 use warnings;
 
+use Padre::QuickFixProvider ();
+
 our $VERSION = '0.43';
+our @ISA     = 'Padre::QuickFixProvider';
 
 #
@@ -18 +21 @@
 
     return $self;
+}
+
+#
+# Returns the quick fix list
+#
+sub quick_fix_list {
+    return ();
 }