line |
true |
false |
branch |
37
|
0 |
5 |
unless eval "sub DEBUG () { $debug }; 1;" |
51
|
0 |
5 |
if $@ and not $@ =~ m[^Can't locate Hash/Util] |
52
|
0 |
5 |
if not defined &lock_keys |
184
|
0 |
12 |
unless $profile_name and not ref $profile_name |
185
|
0 |
12 |
if ref $opt_params ne 'HASH' |
204
|
0 |
12 |
if keys %{+{%$opt_defaults, %$opt_params};} > keys %$opt_defaults |
228
|
2 |
10 |
if (my $exclusive_name = $$self{'period_exclusive'}) |
236
|
1 |
11 |
if (my $period_summary = $$self{'period_summary'}) |
244
|
0 |
12 |
if $$self{'disabled'} |
327
|
0 |
6 |
unless wantarray |
355
|
0 |
13 |
unless defined $dbi_profile_name |
388
|
4 |
9 |
$granularity ? : |
417
|
0 |
55 |
unless my $dbi_handles = $$self{'dbi_handles_all'} |
421
|
42 |
13 |
if $dbh |
422
|
4 |
9 |
unless $name and $name eq '*' |
423
|
0 |
9 |
unless wantarray |
424
|
10 |
0 |
$$_{'Profile'} ? : |
454
|
16 |
1 |
unless shift() |
460
|
2 |
15 |
unless my $dbi_profile = $self->get_dbi_profile($name) |
487
|
0 |
6 |
unless ref $sub eq 'CODE' |
488
|
0 |
6 |
unless $node |
490
|
4 |
2 |
if (ref $node eq 'HASH') |
494
|
5 |
0 |
$$node{$_} ? : |
515
|
0 |
1 |
unless my $data = $$dbi_profile{'Data'} |
558
|
2 |
1 |
unless my $count = $$self{'period_count'} |
562
|
0 |
2 |
unless ref $_[0] eq 'ARRAY' |
586
|
1 |
1 |
if (my $flush_hook = $$self{'flush_hook'}) |
589
|
1 |
0 |
if @ret |
611
|
0 |
1 |
unless $$self{'flush_interval'} |
612
|
1 |
0 |
if time < $$self{'flush_due_at_time'} |
629
|
0 |
9 |
unless my(@dbi_profiles) = $self->get_dbi_profile($dbi_profile_name) |
631
|
9 |
1 |
unless $$_{'Data'} |
667
|
0 |
7 |
if ($$self{'period_start_time'}) |
668
|
0 |
0 |
if (my $strictness = $$self{'period_strict_start'}) |
669
|
0 |
0 |
if ref $strictness eq 'CODE' |
670
|
0 |
0 |
if $strictness & 1 |
673
|
0 |
0 |
if $strictness & 2 |
674
|
0 |
0 |
if $strictness & 4 |
678
|
2 |
5 |
if (my $period_summary_h = $$self{'dbi_handles_all'}{'period_summary'}) |
724
|
0 |
7 |
unless ($$self{'period_start_time'}) |
725
|
0 |
0 |
if (my $strictness = $$self{'period_strict_end'}) |
726
|
0 |
0 |
if ref $strictness eq 'CODE' |
727
|
0 |
0 |
if $strictness & 1 |
729
|
0 |
0 |
if $strictness & 2 |
733
|
0 |
0 |
unless $$self{'period_start_time'} |
742
|
4 |
3 |
if (my $exclusive_sampler = $$self{'exclusive_sampler'}) |
752
|
0 |
4 |
if ($period_summary_profile) { } |
822
|
0 |
15 |
if $$self{'disabled'} |
842
|
0 |
9 |
if $$self{'period_start_time'} |
843
|
1 |
8 |
if $self->has_profile_data('*') |
851
|
20 |
5 |
if keys %{"${class}::";} |
886
|
0 |
5 |
if $drh |
905
|
13 |
0 |
$value ? : |
|
13 |
78 |
if $attrib eq 'AutoCommit' |