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