From 829070f23855223f2b68f9a97c1b865ded3ae5d0 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 3 Sep 2013 17:07:11 -0400 Subject: stop trying to be clever --- lib/Package/Stash.pm | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/lib/Package/Stash.pm b/lib/Package/Stash.pm index 97097af..dd89cce 100644 --- a/lib/Package/Stash.pm +++ b/lib/Package/Stash.pm @@ -13,17 +13,22 @@ BEGIN { if ( $IMPLEMENTATION and not $ENV{PACKAGE_STASH_IMPLEMENTATION} ); Module::Implementation::build_loader_sub( - implementations => [ 'XS', 'PP' ] + implementations => [ 'XS', 'PP' ], + symbols => [qw( + new + name + namespace + add_symbol + remove_glob + has_symbol + get_symbol + get_or_add_symbol + remove_symbol + list_all_symbols + get_all_symbols + )], )->(); $IMPLEMENTATION = Module::Implementation::implementation_for(__PACKAGE__); - - my $impl = "Package::Stash::$IMPLEMENTATION"; - my $from = $impl->new($impl); - my $to = $impl->new(__PACKAGE__); - my $methods = $from->get_all_symbols('CODE'); - for my $meth (keys %$methods) { - $to->add_symbol("&$meth" => $methods->{$meth}); - } } =head1 SYNOPSIS -- cgit v1.2.3-54-g00ecf