Yet Another CPAN Grep

Tapper-Benchmark ( T/TA/TAPPER/Tapper-Benchmark-5.0.0.tar.gz, TAPPER, 2016; MetaCPAN )

Tapper-Benchmark/lib/Tapper/Benchmark.pm ( view source; MetaCPAN )

ttern] : [];

    my $s_key;
    if ( $or_self->{cache} ) {
        require JSON::XS;
        $s_key = JSON::XS::encode_json($ar_pattern);
        if ( my $ar_search_data = $or_self->{cache}->get("lis


    # cache?
    my $s_key;
    if ( $or_self->{cache} ) {
        require JSON::XS;
        $s_key = JSON::XS::encode_json({bench_value_id => $i_bench_value_id});
        if ( my $hr_search_data = $

arch ) = @_;

    my $s_key;
    if ( $or_self->{cache} ) {
        require JSON::XS;
        $s_key = JSON::XS::encode_json($hr_search);
        if ( my $ar_search_data = $or_self->{cache}->get("sear

Tapper-Benchmark ( T/TA/TAPPER/Tapper-Benchmark-5.0.0.tar.gz, TAPPER, 2016; MetaCPAN )

Tapper-Benchmark/lib/Tapper/Benchmark/Query/mysql.pm ( view source; MetaCPAN )

ed_selects{$or_self} = {};

    # deep copy hash
    require JSON::XS;
    $hr_search = JSON::XS::decode_json(
        JSON::XS::encode_json( $hr_search )
    );

    my (
        $s_limit,
        $s

Tapper-Benchmark ( T/TA/TAPPER/Tapper-Benchmark-5.0.0.tar.gz, TAPPER, 2016; MetaCPAN )

Tapper-Benchmark/lib/Tapper/Benchmark/Query/SQLite.pm ( view source; MetaCPAN )

ed_selects{$or_self} = {};

    # deep copy hash
    require JSON::XS;
    $hr_search = JSON::XS::decode_json(
        JSON::XS::encode_json( $hr_search )
    );

    my (
        $s_limit,
        $s