1 package Devel::REPL::Plugin::FindVariable;
3 use Devel::REPL::Plugin;
8 my ($self, $name) = @_;
10 return \$self if $name eq '$_REPL';
12 # XXX: this code needs to live in LexEnv
13 if ($self->can('lexical_environment')) {
14 return \( $self->lexical_environment->get_context('_')->{$name} )
15 if exists $self->lexical_environment->get_context('_')->{$name};
18 my $sigil = $name =~ s/^([\$\@\%\&\*])// ? $1 : '';
20 my $default_package = $self->can('current_package')
21 ? $self->current_package
23 my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package;
25 my $meta = Package::Stash->new($package);
27 # Package::Stash::has_symbol method *requires* a sigil
28 return unless length($sigil) and $meta->has_symbol("$sigil$name");
29 $meta->get_symbol("$sigil$name");
38 Devel::REPL::Plugin::FindVariable - Finds variables by name
42 Shawn M Moore, C<< <sartak at gmail dot com> >>