X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FMultiLine%2FPPI.pm;h=d4540a0fd68f125a84ba947b9d7eeb0b2959960d;hp=e9a2c2d354fc806054b536974d5aeeb1d6f46494;hb=9d2a4940f5958d82828272364ef754e9290b6113;hpb=aa8b764738156914d48d182ee0706e4c3d4e5c99 diff --git a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm index e9a2c2d..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::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;