From 2905fb35f8d7e19e0b9422060689d71c72bb6f39 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 15 Nov 2010 13:02:14 -0600
Subject: almost complete pure perl implementation

the leak tests are failing for some reason, need to track that down
---
 t/lib/Package/Stash.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 t/lib/Package/Stash.pm

(limited to 't/lib/Package/Stash.pm')

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;
-- 
cgit v1.2.3-54-g00ecf