use strict; use warnings; package Devel::REPL::Plugin::FindVariable; # ABSTRACT: Finds variables by name our $VERSION = '1.003027'; use Devel::REPL::Plugin; use namespace::autoclean; sub find_variable { my ($self, $name) = @_; return \$self if $name eq '$_REPL'; # XXX: this code needs to live in LexEnv if ($self->can('lexical_environment')) { return \( $self->lexical_environment->get_context('_')->{$name} ) if exists $self->lexical_environment->get_context('_')->{$name}; } my $sigil = $name =~ s/^([\$\@\%\&\*])// ? $1 : ''; my $default_package = $self->can('current_package') ? $self->current_package : 'main'; my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package; my $meta = Class::MOP::Class->initialize($package); # Class::MOP::Package::has_package_symbol method *requires* a sigil return unless length($sigil) and $meta->has_package_symbol("$sigil$name"); $meta->get_package_symbol("$sigil$name"); } 1; __END__ =pod =head1 AUTHOR Shawn M Moore, C<< >> =cut