X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FMultiLine%2FPPI.pm;h=d4540a0fd68f125a84ba947b9d7eeb0b2959960d;hb=796cd7ec80de14e45ca8221d545aceb7b9bc0b71;hp=1f23cfc5e2b23db0493b7b69fc116a7486552422;hpb=2fd5e0773dda71e35884cc04dbc67c13c06d902e;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm index 1f23cfc..d4540a0 100644 --- a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm +++ b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm @@ -1,16 +1,23 @@ +use strict; +use warnings; package Devel::REPL::Plugin::MultiLine::PPI; +# ABSTRACT: Read lines until all blocks are closed + +our $VERSION = '1.003027'; 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 } ); @@ -80,15 +87,10 @@ sub line_needs_continuation __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;