X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FMultiLine%2FPPI.pm;h=d6e53bea285c2b9e5483dfe35efa68c2bdb739c2;hb=afc8677b078de3f125147caf731bd298c8b6d04e;hp=1f23cfc5e2b23db0493b7b69fc116a7486552422;hpb=d954e450ff6824b77a888ce2a44019bdfe560d1b;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..d6e53be 100644 --- a/lib/Devel/REPL/Plugin/MultiLine/PPI.pm +++ b/lib/Devel/REPL/Plugin/MultiLine/PPI.pm @@ -1,16 +1,20 @@ +use strict; +use warnings; package Devel::REPL::Plugin::MultiLine::PPI; 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 } ); @@ -86,9 +90,6 @@ 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;