| line |
true |
false |
branch |
|
38
|
35 |
33 |
unless (defined $category_cache->{$category}) |
|
60
|
76 |
9 |
if ($category =~ /$entry->{'pattern'}/) |
|
106
|
18 |
28 |
if (ref $_[0] eq "HASH") |
|
111
|
1 |
45 |
unless (defined $adapter_name and $adapter_name =~ /\S/) |
|
117
|
42 |
3 |
if (not defined $pattern) { } |
|
|
1 |
2 |
elsif (not ref $pattern) { } |
|
132
|
16 |
23 |
if (my $lex_ref = $options->{'lexically'}) |
|
134
|
16 |
0 |
unless &_in_global_destruction() |
|
170
|
0 |
61 |
if &_in_global_destruction() |
|
177
|
93 |
4 |
if ($new_entry ne $category_info->{'entry'}) |
|
191
|
6 |
98 |
if $Log::Any::OverrideDefaultAdapterClass |
|
193
|
13 |
85 |
substr($adapter_name, 0, 1) eq '+' ? : |
|
222
|
72 |
32 |
if $class->can("new") |
|
224
|
2 |
30 |
unless (defined eval "require $class; 1") |