| line |
true |
false |
branch |
|
16
|
0 |
2 |
if $VERSION < $askedver |
|
74
|
21 |
6 |
if ($center) { } |
|
99
|
3 |
1 |
if (defined $args{'daemon'} and $args{'daemon'}) |
|
100
|
1 |
2 |
unless defined $args{'file'} |
|
102
|
1 |
11 |
unless $args{'verbose'} |
|
103
|
1 |
1 |
unless $args{'verbose'} =~ m[^\d+/\d+$] or $args{'verbose'} =~ m[^[mM][aA][xX]/\d+$] |
|
107
|
0 |
10 |
if (defined $args{'ltype'}) { } |
|
108
|
0 |
0 |
unless (grep /$args{'ltype'}/, @authorized_level_types) |
|
118
|
10 |
0 |
$levelmax ? : |
|
119
|
1 |
9 |
if $verbose =~ /^[mM][aA][xX]$/ |
|
120
|
0 |
10 |
if (not $verbose =~ /\d+/ && $levelmax =~ /\d+/) { } |
|
122
|
0 |
0 |
unless $args{'levelmax'} |
|
127
|
0 |
10 |
if ($args{'verbose'} > $args{'levelmax'}) |
|
135
|
0 |
10 |
if (defined $args{'fun'}) |
|
136
|
0 |
0 |
unless $args{'fun'} =~ /^\d+$/ |
|
137
|
0 |
0 |
if $args{'fun'} > 100 or $args{'fun'} <= 0 |
|
138
|
0 |
0 |
if $#fun <= 0 |
|
151
|
3 |
7 |
if (exists $args{'colors'} and $args{'colors'}) { } |
|
153
|
0 |
3 |
if ($Log::Funlog::Config{'osname'} eq 'MSWin32') { } |
|
162
|
1 |
2 |
if (ref \$args{'colors'} eq 'SCALAR') { } |
|
|
1 |
1 |
elsif (ref $args{'colors'} eq 'HASH') { } |
|
163
|
1 |
0 |
if $args{'colors'} |
|
173
|
3 |
2 |
exists do {
$args{'colors'}
}->{$item} ? : |
|
189
|
0 |
9 |
defined $args{'error_header'} ? : |
|
193
|
5 |
4 |
if (not defined $args{'cosmetic'}) { } |
|
|
3 |
1 |
elsif (not $args{'cosmetic'} =~ /^[[:^cntrl:]]$/) { } |
|
201
|
1 |
5 |
if (defined $args{'header'}) { } |
|
206
|
1 |
0 |
if ($Log::Funlog::metaheader =~ /\%l.*l/) |
|
212
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%d.*d/ |
|
218
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%p.*p/ |
|
221
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%s.*s/ |
|
223
|
0 |
1 |
if (not defined $args{'caller'} and $Log::Funlog::metaheader =~ /\%s.*s/) |
|
233
|
2 |
4 |
if ($args{'daemon'}) { } |
|
234
|
0 |
2 |
unless open $handleout, ">>$args{'file'}" |
|
240
|
6 |
0 |
unless $args{'-n'} |
|
258
|
1 |
25 |
if $level > $args{'verbose'} or $level == 0 |
|
267
|
0 |
25 |
if (defined $_[0] and $_[0] eq $args{'-n'}) { } |
|
273
|
24 |
1 |
if ($Log::Funlog::metaheader and not $hadnocr) |
|
275
|
24 |
0 |
if ($whattoprint{'s'}) { } |
|
277
|
0 |
24 |
if ($args{'caller'} =~ /^last$/ or $args{'caller'} =~ /^1$/) { } |
|
278
|
0 |
0 |
$Log::Funlog::error ? : |
|
282
|
9 |
51 |
$Log::Funlog::error ? : |
|
287
|
24 |
0 |
if ($args{'caller'} eq 'all') { } |
|
290
|
0 |
0 |
if ($#stack >= 0) |
|
292
|
0 |
0 |
if $num >= $#stack |
|
293
|
0 |
0 |
if ($args{'caller'} eq 'all') { } |
|
|
0 |
0 |
elsif ($args{'caller'} =~ /^-\d+$/) { } |
|
|
0 |
0 |
elsif ($args{'caller'} =~ /^\d+$/) { } |
|
304
|
18 |
6 |
if ($caller) { } |
|
315
|
24 |
0 |
if ($whattoprint{'d'}) |
|
319
|
24 |
0 |
if ($whattoprint{'l'}) |
|
321
|
0 |
24 |
if ($args{'ltype'} eq 'numeric') { } |
|
|
24 |
0 |
elsif ($args{'ltype'} eq 'sequential') { } |
|
339
|
25 |
0 |
unless $nocr |
|
341
|
0 |
0 |
if $args{'fun'} and rand 100 < $args{'fun'} and $count > 10 |
|
344
|
0 |
25 |
if ($nocr) { } |