package Devel::REPL::Plugin::LexEnv;
-use Moose::Role;
+use Devel::REPL::Plugin;
use namespace::clean -except => [ 'meta' ];
use Lexical::Persistence;
-with 'Devel::REPL::Plugin::FindVariable';
+sub BEFORE_PLUGIN {
+ my $self = shift;
+ $self->load_plugin('FindVariable');
+}
has 'lexical_environment' => (
isa => 'Lexical::Persistence',
return $self->$orig($wrapped, @rest);
};
-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};
+# this doesn't work! yarg. we now just check $self->can('lexical_environment')
+# in FindVariable
- return $orig->(@_);
-};
+#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
+
+=cut
+