/usr/share/perl5/Devel/REPL/Plugin/LexEnv.pm is in libdevel-repl-perl 1.003012-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 | package Devel::REPL::Plugin::LexEnv;
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',
required => 1,
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
|