t/lib/Package/Stash.pm

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