lib/Devel/REPL/Plugin/FindVariable.pm

   1 package Devel::REPL::Plugin::FindVariable;
   2
   3 use Devel::REPL::Plugin;
   4 use namespace::clean -except => [ 'meta' ];
   5
   6 sub find_variable {
   7     my ($self, $name) = @_;
   8
   9     return \$self if $name eq '$_REPL';
  10
  11     # XXX: this code needs to live in LexEnv
  12     if ($self->can('lexical_environment')) {
  13         return \( $self->lexical_environment->get_context('_')->{$name} )
  14             if exists $self->lexical_environment->get_context('_')->{$name};
  15     }
  16
  17     my $sigil = $name =~ s/^([\$\@\%\&\*])// ? $1 : '';
  18
  19     my $default_package = $self->can('current_package')
  20                         ? $self->current_package
  21                         : 'main';
  22     my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package;
  23
  24     my $meta = Class::MOP::Class->initialize($package);
  25
  26     return unless $meta->has_package_symbol("$sigil$name");
  27     $meta->get_package_symbol("$sigil$name");
  28 }
  29
  30 1;
  31
  32 __END__
  33
  34 =head1 NAME
  35
  36 Devel::REPL::Plugin::FindVariable - Finds variables by name
  37
  38 =head1 AUTHOR
  39
  40 Shawn M Moore, C<< <sartak at gmail dot com> >>
  41
  42 =cut
  43