| line |
true |
false |
branch |
|
76
|
7 |
31 |
if (defined $args{'log'}) |
|
77
|
4 |
3 |
if ($args{'log'} =~ /^[01]$/) { } |
|
85
|
8 |
27 |
if (defined $args{'rules'}) |
|
94
|
1 |
34 |
if (exists $args{'rename'}) |
|
99
|
9 |
26 |
if (exists $ENV{$ENV_VERBOSITY}) |
|
104
|
29 |
6 |
if ($LOGGING_ON) { } |
|
143
|
7 |
47 |
if (-f $file) |
|
161
|
15 |
15 |
if (defined $config) |
|
169
|
14 |
1 |
if (exists $$config{'_'}) |
|
174
|
2 |
13 |
if (exists $$config{$PROGRAM}) |
|
179
|
2 |
13 |
if ($reload) |
|
187
|
5 |
25 |
if (defined $ENV{$ENV_VERBOSITY}) |
|
214
|
16 |
0 |
if (ref $block eq 'HASH') |
|
219
|
12 |
34 |
if ($path =~ /^log::localized::(.+)$/i) |
|
224
|
12 |
0 |
if (exists $$OPTIONS{$option}) |
|
233
|
1 |
33 |
if (not $value =~ /^\d+$/) { } |
|
236
|
2 |
31 |
if (not $path =~ /::/) { } |
|
260
|
3 |
25 |
if (defined $FILE_DISPATCHERS) |
|
263
|
2 |
5 |
if (-f $file) |
|
294
|
0 |
27 |
unless my $home = home() |
|
307
|
6 |
2 |
if (exists $ENV{$env}) |
|
339
|
558 |
280 |
if $fnc eq 'Log::Localized::_get_local_verbosity' |
|
341
|
280 |
558 |
if $log |
|
348
|
228 |
608 |
if (defined $ENV{$ENV_VERBOSITY}) |
|
350
|
3 |
225 |
if (not $v =~ /^\d+$/) { } |
|
353
|
75 |
150 |
if $log |
|
364
|
24 |
587 |
if (exists $VERBOSITY_RULES{$fnc}) { } |
|
|
16 |
571 |
elsif (exists $VERBOSITY_RULES{$pkg . '::*'}) { } |
|
366
|
24 |
0 |
if $log |
|
369
|
16 |
0 |
if $log |
|
375
|
31 |
1056 |
if (exists $VERBOSITY_RULES{$subpkg}) |
|
377
|
31 |
0 |
if $log |
|
384
|
71 |
540 |
if (defined $v) |
|
393
|
540 |
0 |
if (defined $Log::Localized::VERBOSITY) |
|
394
|
2 |
538 |
unless ($Log::Localized::VERBOSITY =~ /^\d+$/) |
|
397
|
132 |
406 |
if $log |
|
417
|
2 |
898 |
unless @_ == 2 |
|
420
|
1 |
897 |
unless defined $msg and ref $msg eq '' || ref $msg eq 'CODE' |
|
424
|
59 |
838 |
unless (defined $DISPATCHER) |
|
430
|
59 |
779 |
if (scalar @LOG_QUEUE and (caller 1)[3] ne 'llog') |
|
439
|
95 |
739 |
if ($level <= _get_local_verbosity()) |
|
444
|
83 |
12 |
if (ref $msg eq 'CODE') |
|
447
|
1 |
82 |
unless defined $txt and ref $txt eq '' |
|
493
|
0 |
20 |
unless (defined $PROGRAM) |