[gitmo/Package-Stash-XS.git] / t / lib / Package / Stash.pm

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;
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
af3e1f5e	8	our $IMPLEMENTATION = 'XS';
af3e1f5e	9
c53d2df2	10	BEGIN {
	11	my $ps = Package::Stash::XS->new(__PACKAGE__);
	12	my $ps_xs = Package::Stash::XS->new('Package::Stash::XS');
fc8fb59f	13	for my $method ($ps_xs->list_all_symbols('CODE')) {
c53d2df2	14	my $sym = '&' . $method;
	15	$ps->add_symbol($sym => $ps_xs->get_symbol($sym));
	16	}
	17	}
	18
	19	1;