| line |
true |
false |
branch |
|
14
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
17
|
0 |
1 |
unless open FILTER, "<$filter_file" |
|
22
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
23
|
1 |
0 |
exists $ENV{'LOG_FILTER_DEBUG'} ? : |
|
|
1 |
0 |
exists $ENV{'LOG_FILTER_PACKAGES_DEBUG'} ? : |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
if ($piece =~ /^\!/) { } |
|
|
0 |
0 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
0 |
$_ =~ /$not_filter_rx/ ? : |
|
|
0 |
0 |
$_ =~ /$not_filter_rx/ ? : |
|
|
0 |
0 |
if (scalar keys %filter) { } |
|
|
0 |
1 |
if ($ENV{'LOG_FILTER'} =~ /^off$/i) { } |
|
|
1 |
0 |
elsif ($ENV{'LOG_FILTER'} =~ /^(on|\d+)$/i) { } |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
1 |
0 |
unless (defined $FILTER_REGEX) |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
1 |
0 |
unless (defined $FILTER_ALL_REGEX) |
|
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
|
1 |
0 |
unless (defined $MATCH_LOG_LEVEL_REGEX) |
|
|
0 |
4630 |
unless defined $max |
|
|
4630 |
0 |
unless (defined $separator and length $separator > 0) |
|
|
4630 |
0 |
defined $piece ? : |
|
|
782 |
3848 |
$lp < $max ? : |
|
|
0 |
4630 |
$sp eq 'space' ? : |
|
|
0 |
4630 |
$lr < $max ? : |
|
|
0 |
4630 |
$sp eq 'space' ? : |
|
|
0 |
4630 |
unless defined $max |
|
|
4630 |
0 |
unless (defined $separator and length $separator > 0) |
|
|
4630 |
0 |
defined $piece ? : |
|
|
0 |
4630 |
$lp < $max ? : |
|
|
4630 |
0 |
$sp eq 'space' ? : |
|
|
0 |
4630 |
$lr < $max ? : |
|
|
4630 |
0 |
$sp eq 'space' ? : |
|
|
0 |
0 |
unless defined $max |
|
|
0 |
0 |
unless (defined $separator and length $separator > 0) |
|
|
0 |
0 |
defined $piece ? : |
|
|
0 |
0 |
$lp < $max ? : |
|
|
0 |
0 |
$sp eq 'space' ? : |
|
|
0 |
0 |
$lr < $max ? : |
|
|
0 |
0 |
$sp eq 'space' ? : |
|
24
|
0 |
1 |
if $ENV{'LOG_FILTER_DEBUG'} |
|
25
|
0 |
1 |
if $@ |
|
313
|
1 |
0 |
unless $log_level |
|
342
|
1 |
0 |
unless $log_level |
|
347
|
0 |
0 |
exists $_[1] ? : |
|
348
|
0 |
0 |
exists $_[1] ? : |
|
356
|
62 |
0 |
exists $_[1] ? : |
|
357
|
6 |
0 |
exists $_[1] ? : |
|
358
|
7 |
0 |
exists $_[1] ? : |
|
359
|
6 |
0 |
exists $_[1] ? : |
|
360
|
0 |
0 |
exists $_[1] ? : |
|
361
|
0 |
0 |
exists $_[1] ? : |
|
362
|
2 |
0 |
exists $_[1] ? : |
|
363
|
0 |
0 |
exists $_[1] ? : |
|
364
|
6 |
0 |
exists $_[1] ? : |
|
378
|
48 |
3088 |
$_ eq $level ? : |
|
|
56 |
0 |
if $level |
|
379
|
8 |
48 |
if ($level and not $valid_level) { } |
|
|
48 |
0 |
elsif ($level and $valid_level) { } |
|
380
|
0 |
8 |
if ($dest) { } |
|
389
|
56 |
0 |
if ($dest) |
|
403
|
0 |
0 |
if (scalar @_ > 2) |
|
423
|
0 |
0 |
unless ($level or $dest) |
|
432
|
0 |
0 |
if (not ref $level eq 'ARRAY') { } |
|
439
|
0 |
0 |
if ($level and not $dest) |
|
441
|
0 |
0 |
$_ eq $$level[0] ? : |
|
|
0 |
0 |
if $$level[0] |
|
442
|
0 |
0 |
if ($valid_level) { } |
|
445
|
0 |
0 |
$_ eq $l ? : |
|
446
|
0 |
0 |
if (not $vl) { } |
|
456
|
0 |
0 |
$reflevel ? : |
|
467
|
0 |
0 |
if (not ref $dest eq 'ARRAY') { } |
|
471
|
0 |
0 |
defined $refdest ? : |
|
474
|
0 |
0 |
if ($dest and not $level) |
|
499
|
0 |
0 |
if (exists $_[0]) |
|
507
|
0 |
0 |
unless $package and not $package =~ /^\s+$/ |
|
508
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
509
|
0 |
0 |
if ($package =~ s/^\!//) { } |
|
511
|
0 |
0 |
unless (grep {/^$package$/;} @$dont_log) |
|
512
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
516
|
0 |
0 |
unless (grep {/^$package$/;} @$do_log) |
|
517
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
523
|
0 |
0 |
if (my $packages = $$self{'packages_array'}) |
|
525
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
527
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
529
|
0 |
0 |
scalar @$do_log ? : |
|
530
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
531
|
0 |
0 |
scalar @$dont_log ? : |
|
532
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
544
|
0 |
0 |
if UNIVERSAL::isa($clone, $this_package) and ref $$self{'prefix'} eq 'CODE' |
|
564
|
4 |
2 |
if (defined $init) { } |
|
565
|
0 |
4 |
unless (ref $init eq 'HASH') |
|
574
|
0 |
37 |
unless $key |
|
588
|
0 |
0 |
if $ENV{'LOG_INTERNAL_DUMP_DEBUG'} |
|
592
|
0 |
0 |
if ($_[0] and $_[0] =~ /^-/) { } |
|
596
|
0 |
0 |
unless ref $names eq 'ARRAY' |
|
599
|
0 |
0 |
defined $$args{-'indent'} ? : |
|
604
|
0 |
0 |
if ($terse and not defined $indent) |
|
618
|
0 |
0 |
if $ENV{'LOG_INTERNAL_DUMP_DEBUG'} |
|
620
|
0 |
0 |
unless defined $dumps and ref $dumps eq 'ARRAY' |
|
621
|
0 |
0 |
unless defined $names and ref $names eq 'ARRAY' |
|
622
|
0 |
0 |
if ($id) |
|
625
|
0 |
0 |
ref $d ? : |
|
630
|
0 |
0 |
if defined $pad |
|
631
|
0 |
0 |
if defined $pure |
|
632
|
0 |
0 |
if defined $deep |
|
633
|
0 |
0 |
if defined $terse |
|
634
|
0 |
0 |
if defined $indent |
|
635
|
0 |
0 |
if defined $deparse |
|
741
|
1852 |
0 |
length $_ < 2 ? : |
|
|
0 |
2778 |
length $_ < 2 ? : |
|
745
|
0 |
926 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 2 |
|
756
|
0 |
0 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 2 |
|
766
|
0 |
926 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 2 |
|
779
|
56 |
870 |
if $level =~ /CLEAN/ |
|
789
|
0 |
0 |
if ref $level eq 'HASH' and $args = $level |
|
801
|
0 |
0 |
if $ENV{'LOG_LEVEL_DEBUG'} |
|
803
|
0 |
0 |
unless (defined $_level) |
|
806
|
0 |
0 |
unless exists $level_cache{$level} |
|
821
|
0 |
12545 |
unless ref $self |
|
822
|
0 |
12545 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 4 |
|
838
|
6272 |
6273 |
if ref $level eq 'HASH' and $args = $level |
|
853
|
0 |
12545 |
if $ENV{'LOG_LEVEL_DEBUG'} |
|
855
|
0 |
12545 |
unless (defined $_level) |
|
859
|
0 |
0 |
if (not exists $level_cache{$level}) { } |
|
879
|
0 |
12545 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 4 |
|
880
|
8400 |
4145 |
unless ($ALWAYS_LOG{$map_level}) |
|
881
|
0 |
8400 |
if (my $e = $$self{'exclusive'}) { } |
|
882
|
0 |
0 |
unless $level =~ /$e/ |
|
885
|
7556 |
844 |
unless $_level >= $_log_level |
|
890
|
0 |
12545 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 4 |
|
891
|
0 |
12545 |
if ($status and my $packages = $$self{'packages'}) |
|
902
|
0 |
0 |
if (scalar @$do_log_rx) |
|
904
|
0 |
0 |
if ($log_called_package =~ /^($do_rx)$/) |
|
910
|
0 |
0 |
unless $do_match |
|
913
|
0 |
0 |
if ($status and scalar @$dont_log_rx) |
|
915
|
0 |
0 |
if ($status and $log_called_package =~ /^($dont_rx)$/) |
|
927
|
0 |
0 |
if ($do_match and $dont_match) |
|
929
|
0 |
0 |
length $do_match > length $dont_match ? : |
|
930
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
931
|
0 |
0 |
if $ENV{'LOG_PACKAGES_DEBUG'} |
|
935
|
0 |
12545 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 2 |
|
936
|
4989 |
7556 |
if ($status) |
|
947
|
4989 |
0 |
exists $$self{'dump_refs'} ? : |
|
|
0 |
4989 |
exists $$args{'dump_refs'} ? : |
|
953
|
0 |
0 |
$use_level =~ /FAIL/ ? : |
|
|
0 |
0 |
$use_level =~ /FATAL/ ? : |
|
|
0 |
0 |
$use_level =~ /CRIT/ ? : |
|
|
0 |
0 |
$log_level =~ /SPEW/ ? : |
|
|
0 |
0 |
$use_level =~ /^D/ ? : |
|
|
870 |
0 |
defined $$self{'prefix'} ? : |
|
|
3193 |
870 |
$use_level =~ /CLEAN/ ? : |
|
|
926 |
4063 |
$log_level =~ /^D_/ ? : |
|
|
0 |
4989 |
exists $$args{'prefix'} ? : |
|
968
|
0 |
0 |
if (exists $$args{'prefix'} and $log_level =~ /^D_/ and $log_file =~ /^(STDOUT|STDERR)$/) |
|
974
|
0 |
4989 |
if $add_dev_prefix |
|
975
|
4989 |
0 |
if defined $prefix |
|
980
|
0 |
4989 |
defined $$self{'stack_trace'} ? : |
|
|
0 |
4989 |
exists $$args{'stack_trace'} ? : |
|
988
|
0 |
926 |
if $code_resolve_cnt++ > $code_resolve_cnt_max |
|
1002
|
0 |
14966 |
unless defined $msg |
|
1005
|
0 |
14966 |
if (my $ref = ref $msg and $dump_refs) |
|
1007
|
0 |
0 |
$_ =~ /^(terse|deep|pure|id|indent|deparse)$/ ? : |
|
1008
|
0 |
0 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 4 |
|
1009
|
0 |
0 |
if ($ref eq 'CODE') { } |
|
1012
|
0 |
0 |
unless ref $msg eq 'CODE' and $code_resolve_cnt++ > $code_resolve_cnt_max |
|
1025
|
0 |
0 |
if ($add_dev_prefix and not $outmsg[-1] =~ /\n$/ms and not defined $$args{'n'}) |
|
1035
|
3136 |
1853 |
exists $$args{'n'} ? : |
|
1036
|
0 |
4989 |
if $ENV{'LOG_INTERNAL_DEBUG'} > 4 |
|
1037
|
4989 |
0 |
unless ($$args{'dont_actually_log'}) |
|
1051
|
0 |
4989 |
if (not $fh) { } |
|
1055
|
0 |
0 |
unless ($log->handle_fatals) |
|
1059
|
0 |
0 |
if $log->handle_fatals |
|
1070
|
0 |
4989 |
unless defined $return |
|
1082
|
33928 |
0 |
defined $_ ? : |
|
|
7556 |
4989 |
if ref $return eq 'ARRAY' |
|
1084
|
6272 |
6273 |
wantarray ? : |
|
1096
|
0 |
0 |
unless ($fh) |
|
1100
|
0 |
0 |
unless ($log->handle_fatals) |
|
1115
|
0 |
0 |
exists $_[0] ? : |
|
1137
|
926 |
1852 |
if ($nsubroutine) { } |
|
|
926 |
926 |
elsif ($package) { } |
|
1151
|
0 |
926 |
if ($STACK_TRACE) |
|
1156
|
0 |
0 |
$mes{$_} < length $_ ? : |
|
|
0 |
0 |
!$mes{$_} ? : |
|
1164
|
0 |
0 |
$f{$_} ? : |
|
|
0 |
0 |
unless join '', map({$f{$_} ? $f{$_} : '';} @showf) |
|
1168
|
0 |
0 |
$mes{$_} < length $f{$_} ? : |
|
|
0 |
0 |
!$mes{$_} ? : |
|
1173
|
0 |
0 |
if ($_) { } |
|
1177
|
0 |
926 |
if $ENV{'LOG_DEBUG'} |
|
1179
|
0 |
926 |
if $ENV{'LOG_DEBUG'} |
|
1180
|
0 |
926 |
unless ($$log_called_at[0]) |
|
1184
|
926 |
0 |
unless ($$called_called_from[0]) |
|
1187
|
0 |
926 |
if $ENV{'LOG_DEBUG'} |
|
1188
|
0 |
926 |
if $ENV{'LOG_DEBUG'} |
|
1189
|
0 |
926 |
if $ENV{'LOG_DEBUG'} |
|
1193
|
926 |
0 |
wantarray ? : |
|
1217
|
3 |
0 |
unless ref $self |
|
1222
|
3 |
0 |
if (my $init = shift @args) |
|
1223
|
3 |
0 |
if ref $init eq 'HASH' |
|
1224
|
0 |
3 |
if ref $init eq 'ARRAY' |
|
1227
|
1 |
0 |
$class eq $this_package ? : |
|
1229
|
3 |
0 |
if $log |
|
1242
|
0 |
0 |
if (my $fh = $self->fh(@_, 'no_open', 1)) { } |
|
1249
|
0 |
0 |
if ($ENV{'LOG_DEBUG'}) |
|
1254
|
0 |
0 |
if ($fh and $file_no) |
|
1255
|
0 |
0 |
unless $status = close $fh |
|
1281
|
0 |
4989 |
if ($level =~ /^(STDERR|STDOUT)$/i) { } |
|
1319
|
0 |
4989 |
if (ref $fh eq 'ARRAY') { } |
|
1327
|
0 |
4989 |
if ($fh) |
|
1332
|
0 |
0 |
if (defined $file_no) { } |
|
1342
|
0 |
0 |
$reffh ? : |
|
1347
|
0 |
4989 |
if (ref $file eq 'ARRAY') { } |
|
1363
|
0 |
4989 |
if ($$args{'no_open'}) { } |
|
1366
|
1 |
4988 |
unless ($_fh) |
|
1367
|
0 |
1 |
if (fileno $_file) { } |
|
1371
|
0 |
1 |
if ($_file =~ /^\s*(\||[>]{1,2})/) { } |
|
1374
|
0 |
1 |
-f $_file_clean ? : |
|
1376
|
0 |
1 |
unless $_fh = 'IO::File'->new |
|
1377
|
0 |
1 |
if $ENV{'LOG_DEBUG'} |
|
1379
|
0 |
1 |
unless ($opened) |
|
1381
|
0 |
0 |
unless ($log->handle_fatals) |
|
1392
|
0 |
4989 |
unless defined $_file_no |
|
1411
|
4989 |
0 |
if $$self{'unbuffer'} or $$args{'unbuffer'} |
|
1418
|
0 |
4989 |
$reffile ? : |
|
1437
|
4989 |
0 |
if ($_[0] =~ /^-/) { } |
|
1439
|
0 |
4989 |
unless $message = $$args{-'message'} |
|
1440
|
0 |
4989 |
unless ref $message eq 'ARRAY' |
|
1443
|
0 |
0 |
if $fh = $FHS_NA{$_[0]} |
|
1446
|
0 |
0 |
defined $_ ? : |
|
1452
|
14966 |
0 |
defined $_ ? : |
|
1453
|
0 |
4989 |
if ($$args{-'terse'}) |
|
1460
|
0 |
4989 |
if (ref $fh eq 'ARRAY') { } |
|
1470
|
0 |
4989 |
unless fileno $_fh or $_fh = $FHS_NA{$_fh} |
|
1472
|
0 |
4989 |
unless print $_fh $return, $n |
|
1477
|
0 |
112 |
defined $$args{'handle_fatals'} ? : |
|
|
0 |
112 |
if ($level =~ /^(CRIT|FATAL)$/ and defined $$args{'handle_fatals'} ? $$args{'handle_fatals'} : $$self{'handle_fatals'}) |
|
1484
|
0 |
4989 |
if ($BIG_WARN_ON{$level}) |
|
1491
|
56 |
4933 |
if ($level eq 'QUIT') |
|
1492
|
0 |
56 |
unless $$self{'DEBUG'}{'NO_QUIT'} |
|
1512
|
0 |
1 |
if ($^O =~ /mswin/i) { } |