use strict;
use warnings;
package Devel::REPL::Plugin::LexEnv;
BEGIN {
$Devel::REPL::Plugin::LexEnv::AUTHORITY = 'cpan:PHAYLON';
}
{
$Devel::REPL::Plugin::LexEnv::VERSION = '1.003025';
}
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__
=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