| line |
true |
false |
branch |
|
15
|
0 |
0 |
unless ($Log::ger::_dumper) |
|
22
|
0 |
0 |
if ($@) { } |
|
45
|
13 |
2 |
if $level =~ /\A\d+\z/ |
|
47
|
2 |
0 |
if defined $Log::ger::Levels{$level} |
|
49
|
0 |
0 |
if defined $Log::ger::Level_Aliases{$level} |
|
55
|
1 |
2 |
if defined $Log::ger::Levels{$level} |
|
57
|
1 |
1 |
if defined $Log::ger::Level_Aliases{$level} |
|
60
|
2 |
5 |
if $v == $level |
|
76
|
0 |
23 |
unless my $hooks = $Log::ger::Global_Hooks{$phase} |
|
77
|
4 |
19 |
if ($target_type eq 'package') { } |
|
|
0 |
19 |
elsif ($target_type eq 'object') { } |
|
|
0 |
19 |
elsif ($target_type eq 'hash') { } |
|
87
|
20 |
3 |
if ($action eq 'add') { } |
|
|
0 |
3 |
elsif ($action eq 'remove') { } |
|
|
3 |
0 |
elsif ($action eq 'reset') { } |
|
|
0 |
0 |
elsif ($action eq 'empty') { } |
|
|
0 |
0 |
elsif ($action eq 'save') { } |
|
|
0 |
0 |
elsif ($action eq 'restore') { } |
|
95
|
0 |
0 |
if &$code($hooks->[$i]) |
|
181
|
2 |
0 |
if ($target_type eq 'package') { } |
|
|
0 |
0 |
elsif ($target_type eq 'object') { } |
|
|
0 |
0 |
elsif ($target_type eq 'hash') { } |
|
185
|
0 |
0 |
unless my($obj_addr) = $target_name =~ /$Log::ger::re_addr/ |
|
187
|
0 |
0 |
unless my $v = $Log::ger::Object_Targets{$obj_addr} |
|
191
|
0 |
0 |
unless my($hash_addr) = $target_name =~ /$Log::ger::re_addr/ |
|
193
|
0 |
0 |
unless my $v = $Log::ger::Hash_Targets{$hash_addr} |
|
221
|
0 |
18 |
if ($args{'hooks'}) { } |
|
227
|
18 |
0 |
unless index($mod, $prefix) == 0 |
|
230
|
18 |
0 |
$mod->can('meta') ? : |
|
239
|
0 |
18 |
unless ($v == 2) |
|
246
|
0 |
18 |
unless $args{'conf'} |
|
250
|
2 |
16 |
unless $args{'replace_package_regex'} |
|
252
|
16 |
0 |
if (not $args{'target'}) { } |
|
|
0 |
0 |
elsif ($args{'target'} eq 'package') { } |
|
|
0 |
0 |
elsif ($args{'target'} eq 'object') { } |
|
|
0 |
0 |
elsif ($args{'target'} eq 'hash') { } |
|
263
|
0 |
16 |
unless $all_hooks |
|
268
|
7 |
64 |
if $hooks->[$i][0] =~ /$args{'replace_package_regex'}/ |
|
275
|
4 |
16 |
if (defined $args{'target'}) { } |
|
284
|
18 |
0 |
unless defined $reinit |
|
285
|
18 |
0 |
if ($reinit) |
|
286
|
2 |
16 |
if (defined $args{'target'}) { } |