X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FFindVariable.pm;h=66eb920905e8a66993dd2b838e605dbf52cf6837;hb=refs%2Fheads%2Fmoo;hp=69a746c86a690069a965e01861c4c5597df1801d;hpb=86f22c23273d4dfa82e5ec216962aeaea896dc65;p=p5sagit%2FDevel-REPL.git diff --git a/lib/Devel/REPL/Plugin/FindVariable.pm b/lib/Devel/REPL/Plugin/FindVariable.pm index 69a746c..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::clean -except => [ 'meta' ]; +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;