1 package Devel::REPL::Plugin::FindVariable;
4 use namespace::clean -except => [ 'meta' ];
7 my ($self, $name) = @_;
9 my $sigil = $name =~ s/^([\$\@\%\&\*])// ? $1 : '';
11 my $default_package = $self->can('current_package')
12 ? $self->current_package
14 my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package;
16 my $meta = Class::MOP::Class->initialize($package);
18 return unless $meta->has_package_symbol("$sigil$name");
19 $meta->get_package_symbol("$sigil$name");