[Bast-commits] r4316 - trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine

[Sartak at dev.catalyst.perl.org]

Author: Sartak
Date: 2008-05-05 09:32:54 +0100 (Mon, 05 May 2008)
New Revision: 4316

Modified:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
Log:
Turn MultiLine::PPI's needs_continuation into a method line_needs_continuation


Modified: trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm	2008-05-01 15:56:10 UTC (rev 4315)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/MultiLine/PPI.pm	2008-05-05 08:32:54 UTC (rev 4316)
@@ -20,7 +20,7 @@
   my $line = $self->$orig(@args);
 
   if (defined $line) {
-    while (needs_continuation($line)) {
+    while ($self->line_needs_continuation($line)) {
       my $orig_prompt = $self->prompt;
       $self->prompt($self->continuation_prompt);
 
@@ -39,8 +39,9 @@
   return $line;
 };
 
-sub needs_continuation
+sub line_needs_continuation
 {
+  my $repl = shift;
   my $line = shift;
   my $document = PPI::Document->new(\$line);
   return 0 if !defined($document);