X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FLexEnv.pm;h=f487fa2df5ae69dec6e16b77fee88da0317eac5f;hp=05ac905edfcf53c8482f0ec2f73bbd7c2aae8634;hb=b595a818b1d89dbea55ace1af86d0df91c97ba0c;hpb=3a40071593734bf02e987a076b6408095ecfad41 diff --git a/lib/Devel/REPL/Plugin/LexEnv.pm b/lib/Devel/REPL/Plugin/LexEnv.pm index 05ac905..f487fa2 100644 --- a/lib/Devel/REPL/Plugin/LexEnv.pm +++ b/lib/Devel/REPL/Plugin/LexEnv.pm @@ -1,7 +1,7 @@ package Devel::REPL::Plugin::LexEnv; use Devel::REPL::Plugin; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; use Lexical::Persistence; sub BEFORE_PLUGIN { @@ -12,7 +12,6 @@ sub BEFORE_PLUGIN { has 'lexical_environment' => ( isa => 'Lexical::Persistence', is => 'rw', - required => 1, lazy => 1, default => sub { Lexical::Persistence->new } ); @@ -68,5 +67,24 @@ __END__ Devel::REPL::Plugin::LexEnv - Provide a lexical environment for the REPL +=head1 SYNOPSIS + + # in your re.pl file: + use Devel::REPL; + my $repl = Devel::REPL->new; + $repl->load_plugin('LexEnv'); + + $repl->lexical_environment->do(<<'CODEZ'); + use FindBin; + use lib "$FindBin::Bin/../lib"; + use MyApp::Schema; + my $s = MyApp::Schema->connect('dbi:Pg:dbname=foo','broseph','elided'); + CODEZ + + $repl->run; + + # after you run re.pl: + $ warn $s->resultset('User')->first->first_name # <-- note that $s works + =cut