package Devel::REPL::Plugin::MultiLine::PPI; use Devel::REPL::Plugin; use PPI; use namespace::clean -except => [ 'meta' ]; has 'continuation_prompt' => ( is => 'rw', required => 1, lazy => 1, default => sub { '> ' } ); has 'line_depth' => ( is => 'rw', required => 1, lazy => 1, default => sub { 0 } ); around 'read' => sub { my $orig = shift; my ($self, @args) = @_; my $line = $self->$orig(@args); if (defined $line) { 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); $line .= "\n$append" if defined($append); $self->prompt($orig_prompt); # ^D means "shut up and eval already" return $line if !defined($append); } return $line; } 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); unless ( defined($document) ) { die "PPI failed to parse document '$line'\n"; } # 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 unless ( $document->child(-1)->isa('PPI::Statement::Null') ) { return 1; } # this could use more logic, such as returning 1 on s/foo/ba my $unfinished_structure = sub { my ($document, $element) = @_; return 0 unless $element->isa('PPI::Structure'); return 1 unless $element->finish; return 0; }; return $document->find_any($unfinished_structure); } 1; __END__ =head1 NAME Devel::REPL::Plugin::MultiLine::PPI - read lines until all blocks are closed =head1 SYNOPSIS #!/usr/bin/perl use lib './lib'; use Devel::REPL; my $repl = Devel::REPL->new; $repl->load_plugin('LexEnv'); $repl->load_plugin('History'); $repl->load_plugin('MultiLine::PPI'); $repl->run; =head1 DESCRIPTION Plugin that will collect lines until you have no unfinished structures. This lets you write subroutines, C statements, loops, etc. more naturally. For example, without a MultiLine plugin, $ my $x = 3; 3 $ if ($x == 3) { will throw a compile error, because that C statement is incomplete. With a MultiLine plugin, $ my $x = 3; 3 $ if ($x == 3) { > print "OH NOES!" > } OH NOES 1 you may write the code across multiple lines, such as in C and C. This module uses L. This plugin is named C because someone else may conceivably implement similar behavior some other less dependency-heavy way. =head1 SEE ALSO C =head1 AUTHOR Shawn M Moore, C<< >> =head1 COPYRIGHT AND LICENSE Copyright (C) 2007 by Shawn M Moore This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut