X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL.pm;h=c174bbd4d164f08cf246f2f3075b68f4330adf00;hp=756c95ae2862e56454928686f7edfabbbac761e0;hb=b595a818b1d89dbea55ace1af86d0df91c97ba0c;hpb=6bba7e870f4052c929783c48e8598628c8eb078c diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm index 756c95a..c174bbd 100644 --- a/lib/Devel/REPL.pm +++ b/lib/Devel/REPL.pm @@ -12,22 +12,23 @@ 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 } );