diff options
Diffstat (limited to 't/lib/Package/Stash.pm')
-rw-r--r-- | t/lib/Package/Stash.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/lib/Package/Stash.pm b/t/lib/Package/Stash.pm new file mode 100644 index 0000000..fb25135 --- /dev/null +++ b/t/lib/Package/Stash.pm @@ -0,0 +1,19 @@ +package # hide from PAUSE + Package::Stash; +use strict; +use warnings; + +use Package::Stash::XS; + +BEGIN { + my $ps = Package::Stash::XS->new(__PACKAGE__); + my $ps_xs = Package::Stash::XS->new('Package::Stash::XS'); + for my $method (qw(new name namespace add_symbol remove_glob has_symbol + get_symbol get_or_add_symbol remove_symbol + list_all_symbols get_all_symbols)) { + my $sym = '&' . $method; + $ps->add_symbol($sym => $ps_xs->get_symbol($sym)); + } +} + +1; |