blob: 7d8cd23fbe1b66b1a629d952f15d99ed6c773c48 (
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::PP;
our $IMPLEMENTATION = 'PP';
BEGIN {
my $ps = Package::Stash::PP->new(__PACKAGE__);
my $ps_pp = Package::Stash::PP->new('Package::Stash::PP');
for my $method ($ps_pp->list_all_symbols('CODE')) {
my $sym = '&' . $method;
$ps->add_symbol($sym => $ps_pp->get_symbol($sym));
}
}
1;
|