blob: a73bec880623959e7921285ef833f60b04294979 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
package # hide from PAUSE
Package::Stash;
use strict;
use warnings;
use Package::Stash::XS;
our $IMPLEMENTATION = '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;
|