view release on metacpan or  search on metacpan

lib/Bencher/Scenario/ManipulatingSymbolTable/CheckingSymbolExists.pm  view on Meta::CPAN

package Bencher::Scenario::ManipulatingSymbolTable::CheckingSymbolExists;

our $DATE = '2019-01-06'; # DATE
our $VERSION = '0.001'; # VERSION

our $scenario = {
    summary => 'Benchmark checking symbol exists',
    participants => [
        {name => 'PS:XS not exists', module => 'Package::Stash::XS', code_template => 'Package::Stash::XS->new("main")->has_symbol(q[$should_not_exist])'},
        {name => 'PS:PP not exists', module => 'Package::Stash::PP', code_template => 'Package::Stash::PP->new("main")->has_symbol(q[$should_not_exist])'},
        {name => 'PS:XS exists'    , module => 'Package::Stash::XS', code_template => 'Package::Stash::XS->new("main")->has_symbol(q[$should_exist])'},
        {name => 'PS:PP exists'    , module => 'Package::Stash::PP', code_template => 'Package::Stash::PP->new("main")->has_symbol(q[$should_exist])'},
    ],
};

package
    main;
our $should_exist = 0;

1;

lib/Bencher/Scenario/ManipulatingSymbolTable/CheckingSymbolExists.pm  view on Meta::CPAN

L<Package::Stash::PP> 0.37

=head1 BENCHMARK PARTICIPANTS

=over

=item * PS:XS not exists (perl_code)

Code template:

 Package::Stash::XS->new("main")->has_symbol(q[$should_not_exist])



=item * PS:PP not exists (perl_code)

Code template:

 Package::Stash::PP->new("main")->has_symbol(q[$should_not_exist])



=item * PS:XS exists (perl_code)

Code template:

 Package::Stash::XS->new("main")->has_symbol(q[$should_exist])