+use strict;
+use warnings;
package Devel::REPL::Plugin::MultiLine::PPI;
+# ABSTRACT: Read lines until all blocks are closed
-use Moose::Role;
+our $VERSION = '1.003030';
+
+use Devel::REPL::Plugin;
use PPI;
-use namespace::clean -except => [ 'meta' ];
+use namespace::autoclean;
has 'continuation_prompt' => (
- is => 'rw', required => 1, lazy => 1,
+ is => 'rw',
+ lazy => 1,
default => sub { '> ' }
);
has 'line_depth' => (
- is => 'rw', required => 1, lazy => 1,
+ is => 'rw',
+ lazy => 1,
default => sub { 0 }
);
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 ) = @_;
- $self->line_depth($self->line_depth + 1);
- my $append = $self->read(@args);
- $self->line_depth($self->line_depth - 1);
+ while ($self->line_needs_continuation($line)) {
+ my $orig_prompt = $self->prompt;
+ $self->prompt($self->continuation_prompt);
- $line .= $append if defined($append);
+ $self->line_depth($self->line_depth + 1);
+ my $append = $self->read(@args);
+ $self->line_depth($self->line_depth - 1);
- $self->prompt($orig_prompt);
+ $line .= "\n$append" if defined($append);
- # ^D means "shut up and eval already"
- return $line if !defined($append);
- }
+ $self->prompt($orig_prompt);
+
+ # ^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;
+
+ # add this so we can test whether the document ends in PPI::Statement::Null
+ $line .= "\n;;";
+
my $document = PPI::Document->new(\$line);
return 0 if !defined($document);
+ # adding ";" to a complete document adds a PPI::Statement::Null. we added a ;;
+ # so if it doesn't end in null then there's probably something that's
+ # incomplete
+ return 0 if $document->child(-1)->isa('PPI::Statement::Null');
+
# this could use more logic, such as returning 1 on s/foo/ba<Enter>
my $unfinished_structure = sub
{
my ($document, $element) = @_;
return 0 unless $element->isa('PPI::Structure');
- return 1 unless $element->start && $element->finish;
+ return 1 unless $element->finish;
return 0;
};
__END__
-=head1 NAME
-
-Devel::REPL::Plugin::MultiLine::PPI - read lines until all blocks are closed
+=pod
=head1 SYNOPSIS
- #!/usr/bin/perl
-
- use lib './lib';
use Devel::REPL;
my $repl = Devel::REPL->new;