X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL.pm;h=c174bbd4d164f08cf246f2f3075b68f4330adf00;hb=19748ec2b93f7f14ccd210e9e9d37b523fb90ea6;hp=2e698910feb81d99438a578ae9d735e81b25ed60;hpb=f47911153306db973583f228e32de560907c943b;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm index 2e69891..c174bbd 100644 --- a/lib/Devel/REPL.pm +++ b/lib/Devel/REPL.pm @@ -2,32 +2,33 @@ package Devel::REPL; use Term::ReadLine; use Moose; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; use 5.008001; # backwards compat, doesn't warn like 5.8.1 -our $VERSION = '1.003013'; +our $VERSION = '1.003017'; with 'MooseX::Object::Pluggable'; use Devel::REPL::Error; has 'term' => ( - is => 'rw', required => 1, + is => 'rw', default => sub { Term::ReadLine->new('Perl REPL') } ); has 'prompt' => ( - is => 'rw', required => 1, + is => 'rw', default => sub { '$ ' } ); has 'out_fh' => ( - is => 'rw', required => 1, lazy => 1, + is => 'rw', + lazy => 1, default => sub { shift->term->OUT || \*STDOUT; } ); has 'exit_repl' => ( - is => 'rw', required => 1, + is => 'rw', default => sub { 0 } ); @@ -374,11 +375,7 @@ L >= 0.18 =item * -L >= 0.16 - -=item * - -L +L =item *