X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FScript.pm;h=c748b95332ea90c02dac8ffacdcbd5b9789172b3;hp=2265638277f184cc5b8a0db8dbe265daae0c8d50;hb=b595a818b1d89dbea55ace1af86d0df91c97ba0c;hpb=cdbe3d31a1e423e5c8f9212fbac037f670bf4af7 diff --git a/lib/Devel/REPL/Script.pm b/lib/Devel/REPL/Script.pm index 2265638..c748b95 100644 --- a/lib/Devel/REPL/Script.pm +++ b/lib/Devel/REPL/Script.pm @@ -5,23 +5,23 @@ use Devel::REPL; use File::HomeDir; use File::Spec; use vars qw($CURRENT_SCRIPT); -use namespace::clean -except => [ qw(meta) ]; +use namespace::autoclean; with 'MooseX::Getopt'; has 'rcfile' => ( - is => 'ro', isa => 'Str', required => 1, default => sub { 'repl.rc' }, + is => 'ro', isa => 'Str', + default => sub { 'repl.rc' }, ); has 'profile' => ( is => 'ro', isa => 'Str', - required => 1, default => sub { $ENV{DEVEL_REPL_PROFILE} || 'Default' }, ); has '_repl' => ( - is => 'ro', isa => 'Devel::REPL', required => 1, + is => 'ro', isa => 'Devel::REPL', default => sub { Devel::REPL->new() } );