line |
true |
false |
branch |
109
|
4 |
2 |
unless ref $categories eq 'ARRAY' |
120
|
2 |
3 |
if exists $categories->{$package} |
123
|
2 |
2 |
if exists $$categories{"${package}::*"} |
124
|
1 |
1 |
unless $package =~ s/::[^:]+$//u |
147
|
0 |
12 |
unless defined eval {
do {
$adapter->$method($handle, %args);
1
}
} |
150
|
0 |
4 |
if @e |
159
|
0 |
4 |
unless my $category = $self->{'metric_category'}{$handle} |
166
|
4 |
8 |
unless &any(sub {
$_ eq $category;
}
, @$categories) |
168
|
0 |
8 |
unless defined eval {
do {
$adapter->$method($handle, @args);
1
}
} |
171
|
0 |
4 |
if @e |