[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / LexEnv.pm

package Devel::REPL::Plugin::LexEnv;

use Moose::Role;
use namespace::clean -except => [ 'meta' ];
use Lexical::Persistence;

has 'lexical_environment' => (
  isa => 'Lexical::Persistence',
  is => 'rw',
  required => 1,
  lazy => 1,
  default => sub { Lexical::Persistence->new }
);

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;
};

around 'execute' => sub {
  my $orig = shift;
  my ($self, $to_exec, @rest) = @_;
  my $wrapped = $self->lexical_environment->wrap($to_exec);
  return $self->$orig($wrapped, @rest);
};

1;
Commit	Line	Data
85cd2780	1	package Devel::REPL::Plugin::LexEnv;
	2
	3	use Moose::Role;
	4	use namespace::clean -except => [ 'meta' ];
	5	use Lexical::Persistence;
	6
	7	has 'lexical_environment' => (
	8	isa => 'Lexical::Persistence',
	9	is => 'rw',
	10	required => 1,
	11	lazy => 1,
	12	default => sub { Lexical::Persistence->new }
	13	);
	14
	15	around 'mangle_line' => sub {
	16	my $orig = shift;
	17	my ($self, @rest) = @_;
	18	my $line = $self->$orig(@rest);
	19	my $lp = $self->lexical_environment;
	20	return join('', map { "my $_;\n" } keys %{$lp->get_context('_')}).$line;
	21	};
	22
	23	around 'execute' => sub {
	24	my $orig = shift;
	25	my ($self, $to_exec, @rest) = @_;
	26	my $wrapped = $self->lexical_environment->wrap($to_exec);
	27	return $self->$orig($wrapped, @rest);
	28	};
	29
	30	1;