3 package Devel::REPL::Plugin::FindVariable;
5 our $VERSION = '1.003027';
7 use Devel::REPL::Plugin;
8 use namespace::autoclean;
11 my ($self, $name) = @_;
13 return \$self if $name eq '$_REPL';
15 # XXX: this code needs to live in LexEnv
16 if ($self->can('lexical_environment')) {
17 return \( $self->lexical_environment->get_context('_')->{$name} )
18 if exists $self->lexical_environment->get_context('_')->{$name};
21 my $sigil = $name =~ s/^([\$\@\%\&\*])// ? $1 : '';
23 my $default_package = $self->can('current_package')
24 ? $self->current_package
26 my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package;
28 my $meta = Class::MOP::Class->initialize($package);
30 # Class::MOP::Package::has_package_symbol method *requires* a sigil
31 return unless length($sigil) and $meta->has_package_symbol("$sigil$name");
32 $meta->get_package_symbol("$sigil$name");
41 Devel::REPL::Plugin::FindVariable - Finds variables by name
45 Shawn M Moore, C<< <sartak at gmail dot com> >>