X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FMultiLine%2FPPI.pm;h=b7957f06dd9b8bc5e078467f8b4b32a467b3ac40;hb=320b3ad545d61ea7a478021189f33e1d41192cba;hp=d0040a501d6ba6db571fc3ac2b22bec0c9db7a8e;hpb=b21e755170420636ffad424d0634bc68e38956df;p=p5sagit%2FDevel-REPL.git

diff --git a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
index d0040a5..b7957f0 100644
--- a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
+++ b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm
@@ -20,27 +20,37 @@ around 'read' => sub {
   my $line = $self->$orig(@args);
 
   if (defined $line) {
-    while (needs_continuation($line)) {
-      my $orig_prompt = $self->prompt;
-      $self->prompt($self->continuation_prompt);
+    return $self->continue_reading_if_necessary($line, @args);
+  } else {
+    return $line;
+  }
+};
+
+sub continue_reading_if_necessary {
+  my ( $self, $line, @args ) = @_;
+
+  while ($self->line_needs_continuation($line)) {
+    my $orig_prompt = $self->prompt;
+    $self->prompt($self->continuation_prompt);
 
-      $self->line_depth($self->line_depth + 1);
-      my $append = $self->read(@args);
-      $self->line_depth($self->line_depth - 1);
+    $self->line_depth($self->line_depth + 1);
+    my $append = $self->read(@args);
+    $self->line_depth($self->line_depth - 1);
 
-      $line .= $append if defined($append);
+    $line .= $append if defined($append);
 
-      $self->prompt($orig_prompt);
+    $self->prompt($orig_prompt);
 
-      # ^D means "shut up and eval already"
-      return $line if !defined($append);
-    }
+    # ^D means "shut up and eval already"
+    return $line if !defined($append);
   }
+
   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);