| line |
true |
false |
branch |
|
243
|
0 |
2 |
if $VERSION < $askedver |
|
301
|
21 |
5 |
if ($center) { } |
|
326
|
3 |
10 |
if (defined $args{'daemon'} and $args{'daemon'}) |
|
327
|
1 |
2 |
unless defined $args{'file'} |
|
329
|
1 |
11 |
unless $args{'verbose'} |
|
330
|
1 |
1 |
unless $args{'verbose'} =~ m[^\d+/\d+$] or $args{'verbose'} =~ m[^[mM][aA][xX]/\d+$] |
|
334
|
0 |
10 |
if (defined $args{'ltype'}) { } |
|
335
|
0 |
0 |
unless (grep /$args{'ltype'}/, @authorized_level_types) |
|
345
|
10 |
0 |
$levelmax ? : |
|
346
|
1 |
9 |
if $verbose =~ /^[mM][aA][xX]$/ |
|
347
|
0 |
10 |
if (not $verbose =~ /\d+/ && $levelmax =~ /\d+/) { } |
|
349
|
0 |
0 |
unless $args{'levelmax'} |
|
354
|
0 |
10 |
if ($args{'verbose'} > $args{'levelmax'}) |
|
362
|
0 |
10 |
if (defined $args{'fun'}) |
|
363
|
0 |
0 |
unless $args{'fun'} =~ /^\d+$/ |
|
364
|
0 |
0 |
if $args{'fun'} > 100 or $args{'fun'} <= 0 |
|
365
|
0 |
0 |
if $#fun <= 0 |
|
378
|
3 |
7 |
if (exists $args{'colors'} and $args{'colors'}) { } |
|
380
|
0 |
3 |
if ($Log::Funlog::Config{'osname'} eq 'MSWin32') { } |
|
389
|
1 |
2 |
if (ref \$args{'colors'} eq 'SCALAR') { } |
|
|
1 |
1 |
elsif (ref $args{'colors'} eq 'HASH') { } |
|
390
|
1 |
0 |
if $args{'colors'} |
|
398
|
3 |
2 |
exists ${$args{'colors'};}{$item} ? : |
|
416
|
0 |
9 |
defined $args{'error_header'} ? : |
|
420
|
5 |
4 |
if (not defined $args{'cosmetic'}) { } |
|
|
3 |
1 |
elsif (not $args{'cosmetic'} =~ /^[[:^cntrl:]]$/) { } |
|
428
|
1 |
5 |
if (defined $args{'header'}) { } |
|
433
|
1 |
0 |
if ($Log::Funlog::metaheader =~ /\%l.*l/) |
|
439
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%d.*d/ |
|
445
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%p.*p/ |
|
448
|
1 |
0 |
if $Log::Funlog::metaheader =~ /\%s.*s/ |
|
450
|
0 |
1 |
if (not defined $args{'caller'} and $Log::Funlog::metaheader =~ /\%s.*s/) |
|
460
|
2 |
4 |
if ($args{'daemon'}) { } |
|
461
|
0 |
2 |
unless open $handleout, ">>$args{'file'}" |
|
467
|
6 |
0 |
unless $args{'-n'} |
|
485
|
1 |
24 |
if $level > $args{'verbose'} or $level == 0 |
|
494
|
0 |
24 |
if ($_[0] eq $args{'-n'}) { } |
|
500
|
23 |
1 |
if ($Log::Funlog::metaheader and not $hadnocr) |
|
502
|
23 |
0 |
if ($whattoprint{'s'}) { } |
|
504
|
0 |
23 |
if ($args{'caller'} =~ /^last$/ or $args{'caller'} =~ /^1$/) { } |
|
505
|
0 |
0 |
$Log::Funlog::error ? : |
|
509
|
9 |
50 |
$Log::Funlog::error ? : |
|
514
|
23 |
0 |
if ($args{'caller'} eq 'all') { } |
|
517
|
0 |
0 |
if ($#stack >= 0) |
|
519
|
0 |
0 |
if $num >= $#stack |
|
520
|
0 |
0 |
if ($args{'caller'} eq 'all') { } |
|
|
0 |
0 |
elsif ($args{'caller'} =~ /^-\d+$/) { } |
|
|
0 |
0 |
elsif ($args{'caller'} =~ /^\d+$/) { } |
|
531
|
18 |
5 |
if ($caller) { } |
|
542
|
23 |
0 |
if ($whattoprint{'d'}) |
|
546
|
23 |
0 |
if ($whattoprint{'l'}) |
|
548
|
0 |
23 |
if ($args{'ltype'} eq 'numeric') { } |
|
|
23 |
0 |
elsif ($args{'ltype'} eq 'sequential') { } |
|
567
|
24 |
0 |
unless $nocr |
|
569
|
0 |
0 |
if $args{'fun'} and rand 100 < $args{'fun'} and $count > 10 |
|
572
|
0 |
24 |
if ($nocr) { } |