Commit | Line | Data |
---|---|---|
c53d2df2 | 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'); | |
fc8fb59f | 11 | for my $method ($ps_xs->list_all_symbols('CODE')) { |
c53d2df2 | 12 | my $sym = '&' . $method; |
13 | $ps->add_symbol($sym => $ps_xs->get_symbol($sym)); | |
14 | } | |
15 | } | |
16 | ||
17 | 1; |