view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for BenchmarkAnything-Storage-Frontend-Lib

0.023     2019-05-09
        - lock process_raw_result_queue
        - bundle_count now passed down the call chain

0.022     2018-04-11
        - verbosity tweaks fitting ::Backend::SQL behaviour changes
        - adapt to changed and new operators 'not_like' and 'is_empty'
        - enable mysql auto re-connect

0.021     2017-02-08
        - pass through 'dbh_config' needed to support parallel execution

0.020     2017-02-08
        - pass through 'verbose' option to ::Backend::SQL

0.019     2017-02-07
        - require latest ::Backend::SQL

lib/BenchmarkAnything/Storage/Frontend/Lib.pm  view on Meta::CPAN

        my $backend = $self->{config}{benchmarkanything}{backend};
        if ($backend eq 'local')
        {
                return [ $self->{backend}->benchmark_operators ];
        }
        else
        {
                # Hardcoded from BenchmarkAnything::Storage::Backend::SQL::Query::common,
                # as it is a backend-special and internal thing anyway.
                return [ '=', '!=', 'like', 'not_like', 'is_empty', '<', '>', '<=', '>=' ];
        }
}



sub _get_additional_key_id
{
        my ($self, $key_name) = @_;

        my $backend = $self->{config}{benchmarkanything}{backend};

t/lib.t  view on Meta::CPAN

my $keys = $balib->_default_additional_keys;
cmp_set([keys %$keys], [qw(NAME VALUE UNIT VALUE_ID CREATED)], "default additional keys");


diag "\n========== Internals: operators ==========";

$balib->createdb;
$balib->add (JSON::decode_json(File::Slurper::read_text('t/valid-benchmark-anything-data-02.json')));
my $operators = $balib->_get_benchmark_operators;
cmp_set($operators, [ '=', '!=', 'like', 'not_like', 'is_empty', '<', '>', '<=', '>=' ], "get benchmark operators");

diag "\n========== Stats ==========";

$balib->createdb;
$balib->add (JSON::decode_json(File::Slurper::read_text('t/valid-benchmark-anything-data-02.json')));

# simple counts
$balib->{backend}{verbose} = 1;
$output = $balib->stats;
is($output->{count_datapointkeys},  18, "stats - count data point keys");