X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FFindVariable.pm;h=66eb920905e8a66993dd2b838e605dbf52cf6837;hp=cf2fd7788558fa65b6b56c9295eebf1d8a299790;hb=moo;hpb=9b7bfb6ac233dca407f12db47aa8dda7c9c1d338 diff --git a/lib/Devel/REPL/Plugin/FindVariable.pm b/lib/Devel/REPL/Plugin/FindVariable.pm index cf2fd77..66eb920 100644 --- a/lib/Devel/REPL/Plugin/FindVariable.pm +++ b/lib/Devel/REPL/Plugin/FindVariable.pm @@ -1,7 +1,8 @@ package Devel::REPL::Plugin::FindVariable; use Devel::REPL::Plugin; -use namespace::autoclean; +use namespace::sweep; +use Package::Stash; sub find_variable { my ($self, $name) = @_; @@ -21,11 +22,11 @@ sub find_variable { : 'main'; my $package = $name =~ s/^(.*)(::|')// ? $1 : $default_package; - my $meta = Class::MOP::Class->initialize($package); + my $meta = Package::Stash->new($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"); + # Package::Stash::has_symbol method *requires* a sigil + return unless length($sigil) and $meta->has_symbol("$sigil$name"); + $meta->get_symbol("$sigil$name"); } 1;