use strict; use warnings; package Devel::REPL::Plugin::LexEnv; # ABSTRACT: Provide a lexical environment for the REPL our $VERSION = '1.003030'; use Devel::REPL::Plugin; use namespace::autoclean; use Lexical::Persistence; sub BEFORE_PLUGIN { my $self = shift; $self->load_plugin('FindVariable'); } has 'lexical_environment' => ( isa => 'Lexical::Persistence', is => 'rw', lazy => 1, default => sub { Lexical::Persistence->new } ); has '_hints' => ( isa => "ArrayRef", is => "rw", predicate => '_has_hints', ); around 'mangle_line' => sub { my $orig = shift; my ($self, @rest) = @_; my $line = $self->$orig(@rest); my $lp = $self->lexical_environment; # Collate my declarations for all LP context vars then add ''; # so an empty statement doesn't return anything (with a no warnings # to prevent "Useless use ..." warning) return join('', 'BEGIN { if ( $_REPL->_has_hints ) { ( $^H, %^H ) = @{ $_REPL->_hints } } }', ( map { "my $_;\n" } keys %{$lp->get_context('_')} ), qq{{ no warnings 'void'; ''; }\n}, $line, '; BEGIN { $_REPL->_hints([ $^H, %^H ]) }', ); }; around 'execute' => sub { my $orig = shift; my ($self, $to_exec, @rest) = @_; my $wrapped = $self->lexical_environment->wrap($to_exec); return $self->$orig($wrapped, @rest); }; # this doesn't work! yarg. we now just check $self->can('lexical_environment') # in FindVariable #around 'find_variable' => sub { # my $orig = shift; # my ($self, $name) = @_; # # return \( $self->lexical_environment->get_context('_')->{$name} ) # if exists $self->lexical_environment->get_context('_')->{$name}; # # return $orig->(@_); #}; 1; __END__ =pod =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