| line |
true |
false |
branch |
|
126
|
0 |
6 |
!$self->{'COLOR'} ? : |
|
128
|
0 |
6 |
if $PARENT ne $$ |
|
129
|
6 |
0 |
if ($self->{'COLOR'}) { } |
|
361
|
0 |
150 |
if ($Key ne $upper) { } |
|
|
6 |
144 |
elsif ($Key eq 'LOGLEVEL') { } |
|
365
|
0 |
0 |
if ($upper eq "LOGLEVEL") |
|
366
|
0 |
0 |
if $self->{$upper} =~ /^ERROR$/i |
|
385
|
0 |
6 |
$Debug::Easy::Config{'useithreads'} ? : |
|
389
|
0 |
6 |
unless ($self->{'COLOR'}) |
|
407
|
36 |
6 |
unless exists $$self{"$lvl-PREFIX"} and defined $$self{"$lvl-PREFIX"} |
|
415
|
0 |
42 |
$PARENT ne $$ ? : |
|
417
|
0 |
42 |
if ($self->{'USE_THREADS'}) |
|
418
|
0 |
0 |
'threads'->can('tid') ? : |
|
419
|
0 |
0 |
$tid && $tid > 0 ? : |
|
440
|
0 |
6 |
if $PARENT ne $$ |
|
441
|
0 |
6 |
!$self->{'COLOR'} ? : |
|
442
|
5 |
1 |
unless $self->{'LOGLEVEL'} =~ /ERR/ |
|
473
|
0 |
114 |
unless ($level =~ /ERR.*|WARN.*|NOTICE|INFO.*|DEBUG/i) |
|
481
|
49 |
65 |
if $self->{'LOGLEVEL_VALUE'} < $LevelLogic{$level} |
|
484
|
0 |
65 |
if (ref($msgs) =~ /HASH|CODE|FORMAT|IO/) { } |
|
|
23 |
42 |
elsif (ref $msgs eq 'ARRAY') { } |
|
496
|
65 |
0 |
if ($effective_prefix =~ /\%(Subroutine|Module|Lines|Lastline)\%/i) |
|
501
|
2 |
4 |
unless ($array[3] =~ /Debug::Easy/) |
|
506
|
2 |
0 |
if ($sname eq '') { } |
|
507
|
2 |
0 |
$subroutine ne '' ? : |
|
513
|
0 |
2 |
if ($count == 2) |
|
521
|
2 |
63 |
if ($package ne '') { } |
|
523
|
2 |
0 |
if $nest |
|
527
|
63 |
0 |
if (not defined $cline or $cline eq "") |
|
535
|
65 |
0 |
$sname ne '' ? : |
|
536
|
0 |
65 |
if length $subroutine > abs $self->{'PADDING'} |
|
537
|
0 |
65 |
if length $cline > abs $self->{'LINES-PADDING'} |
|
538
|
6 |
59 |
if length $short > abs $self->{'SUBROUTINE-PADDING'} |
|
539
|
6 |
59 |
if length $sline > abs $self->{'LINE-PADDING'} |
|
541
|
0 |
65 |
!$self->{'COLOR'} ? : |
|
543
|
0 |
65 |
!$self->{'COLOR'} ? : |
|
547
|
65 |
0 |
if ($effective_prefix =~ /\%Benchmark\%/i) |
|
557
|
0 |
65 |
if ($level eq 'INFO' and $self->{'LOGLEVEL'} eq 'VERBOSE') { } |
|
561
|
0 |
0 |
if (ref $msg ne "") |
|
564
|
0 |
0 |
if ($msg =~ /\n/s) { } |
|
580
|
0 |
107 |
if (ref($msg) =~ /HASH|ARRAY|CODE|FORMAT|IO/) |
|
583
|
21 |
86 |
if ($msg =~ /\n/s) { } |
|
596
|
3 |
62 |
if ($level eq 'DEBUGMAX') { } |
|
597
|
3 |
0 |
if ($self->{'LOGLEVEL'} eq "DEBUGMAX") |
|
627
|
0 |
128 |
unless defined $tmpl |
|
640
|
65 |
63 |
$first ? : |