package Devel::REPL::Plugin::LexEnv;
-use Moose::Role;
+use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
use Lexical::Persistence;
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('FindVariable');
+}
+
has 'lexical_environment' => (
isa => 'Lexical::Persistence',
is => 'rw',
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;
- return join('', map { "my $_;\n" } keys %{$lp->get_context('_')}).$line;
+ # 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 {
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__
+
+=head1 NAME
+
+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
+