t/lib/Package/Stash.pm

   1 package # hide from PAUSE
   2     Package::Stash;
   3 use strict;
   4 use warnings;
   5
   6 use Package::Stash::PP;
   7
   8 our $IMPLEMENTATION = 'PP';
   9
  10 BEGIN {
  11     my $ps = Package::Stash::PP->new(__PACKAGE__);
  12     my $ps_pp = Package::Stash::PP->new('Package::Stash::PP');
  13     for my $method ($ps_pp->list_all_symbols('CODE')) {
  14         my $sym = '&' . $method;
  15         $ps->add_symbol($sym => $ps_pp->get_symbol($sym));
  16     }
  17 }
  18
  19 1;