diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-15 13:02:14 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-15 13:05:14 -0600 |
commit | 2905fb35f8d7e19e0b9422060689d71c72bb6f39 (patch) | |
tree | f7609ecb5acc5517e36a26dd68cb51838ec8e8c3 /t/lib/Package/Stash.pm | |
parent | d1f721b320d72e83c0cb24c45fe9995a6dcf29c2 (diff) | |
download | package-stash-2905fb35f8d7e19e0b9422060689d71c72bb6f39.tar.gz package-stash-2905fb35f8d7e19e0b9422060689d71c72bb6f39.zip |
almost complete pure perl implementation
the leak tests are failing for some reason, need to track that down
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..7d8cd23 --- /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::PP; + +our $IMPLEMENTATION = 'PP'; + +BEGIN { + my $ps = Package::Stash::PP->new(__PACKAGE__); + my $ps_pp = Package::Stash::PP->new('Package::Stash::PP'); + for my $method ($ps_pp->list_all_symbols('CODE')) { + my $sym = '&' . $method; + $ps->add_symbol($sym => $ps_pp->get_symbol($sym)); + } +} + +1; |