| line |
true |
false |
branch |
|
96
|
4 |
6 |
unless $$args{$keys} |
|
100
|
1 |
0 |
if ($$args{'Files'}) |
|
137
|
0 |
0 |
if ($keys eq 'Files') |
|
140
|
0 |
0 |
if $$args{$keys} |
|
195
|
1 |
10 |
if (/MaxAge/) |
|
196
|
0 |
1 |
if ($$args{'MaxAge'} < 0) |
|
202
|
1 |
9 |
if (/NumLines/) |
|
203
|
0 |
1 |
if ($$args{'NumLines'} < 0) |
|
209
|
1 |
8 |
if (/OutputPrefix/) |
|
210
|
0 |
1 |
unless ($$args{'OutputPrefix'} =~ /^(p|f|t|tg|tc|pt|ptg|ptc|ft|ftg|ftc|tp|tpg|tpc|tf|tfg|tfc)$/) |
|
211
|
0 |
0 |
unless $$args{'OutputPrefix'} |
|
217
|
2 |
6 |
if (/Pattern/) |
|
218
|
0 |
2 |
unless $$args{'Pattern'} |
|
220
|
0 |
2 |
if (ref $$args{'Pattern'} ne 'ARRAY' and not -f $$args{'Pattern'}) |
|
226
|
0 |
6 |
if (/ExceptPattern/) |
|
227
|
0 |
0 |
unless $$args{'ExceptPattern'} |
|
228
|
0 |
0 |
if (ref $$args{'ExceptPattern'} ne 'ARRAY' and not -f $$args{'ExceptPattern'}) |
|
234
|
1 |
5 |
if (/Debug/) |
|
235
|
0 |
1 |
unless ($$args{'Debug'} =~ /^[0|1]$/) |
|
241
|
1 |
4 |
if (/ScanForFiles/) |
|
242
|
0 |
1 |
if ($$args{'ScanForFiles'} < 0) |
|
248
|
1 |
3 |
if (/RemoveDuplicate/) |
|
249
|
0 |
1 |
unless ($$args{'RemoveDuplicate'} =~ /^[0|1]$/) |
|
255
|
1 |
2 |
if (/Function/) |
|
256
|
0 |
1 |
if (ref $$args{'Function'} ne 'CODE') |
|
257
|
0 |
0 |
unless $$args{'Function'} |
|
263
|
1 |
1 |
if (/Files/) |
|
264
|
0 |
1 |
unless $$args{'Pattern'} |
|
265
|
0 |
1 |
unless ($$args{'Files'}) |
|
281
|
0 |
1 |
unless my $argvref = shift() |
|
282
|
0 |
1 |
unless my $params = shift() |
|
283
|
0 |
1 |
unless my $arglist = shift() |
|
286
|
1 |
0 |
if (ref $argvref eq 'HASH') { } |
|
291
|
6 |
0 |
if (exists $$params{$param}) |
|
296
|
6 |
0 |
if ($var ne '') |
|
302
|
0 |
0 |
unless (exists $$params{$param}) |
|
311
|
0 |
0 |
unless defined $var |
|
315
|
0 |
0 |
if ($var ne '') { } |
|
|
0 |
0 |
elsif (not exists $$params{$param}) { } |
|
316
|
0 |
0 |
$i <= $#$argvref ? : |
|
329
|
4 |
6 |
if ($var ne '' and not exists $args{$param}) |
|
352
|
0 |
1 |
if (%Attribute) |
|
361
|
0 |
1 |
if (%Attribute) |
|
362
|
0 |
0 |
if $FileHash{$FILE} |
|
367
|
1 |
0 |
stat $FILE ? : |
|
441
|
0 |
1 |
if (-d $FILE) { } |
|
442
|
0 |
0 |
if $MultiTail::DEBUG |
|
444
|
0 |
0 |
if (defined $d) |
|
447
|
0 |
0 |
if (-T $file) |
|
464
|
0 |
1 |
unless ($FILE =~ m[^/] or $MSWin32) |
|
465
|
0 |
0 |
if $MultiTail::DEBUG |
|
468
|
0 |
1 |
unless ($FILE =~ /^\w:/ or $FILE =~ m[^//] or not $MSWin32) |
|
469
|
0 |
0 |
if $MultiTail::DEBUG |
|
475
|
0 |
1 |
unless stat $FILE |
|
481
|
0 |
1 |
if (exists $path_file{$key} and not $MSWin32) |
|
482
|
0 |
0 |
if $MultiTail::DEBUG |
|
483
|
0 |
0 |
if $MultiTail::DEBUG |
|
489
|
1 |
0 |
if (-T $FILE) { } |
|
493
|
0 |
0 |
if $MultiTail::DEBUG |
|
518
|
0 |
1 |
if ($$rFD{'ScanForFiles'} and $MultiTail::LastScan + $$rFD{'ScanForFiles'} * 60 < $PresentTime or $MultiTail::FileAttributeChanged) |
|
521
|
0 |
0 |
if $MultiTail::DEBUG |
|
530
|
0 |
1 |
if ($MultiTail::DEBUG) |
|
546
|
1 |
0 |
if ($$FH{'exist'} and $$FH{'open'}) |
|
547
|
1 |
0 |
if (defined $$FH{'fh'}) |
|
551
|
1 |
0 |
if ($$FH{'stat'}{'mtime'} < $PresentTime - $$rFD{'MaxAge'} * 60) |
|
560
|
1 |
0 |
if $$rFD{'Pattern'} |
|
563
|
1 |
0 |
if $$rFD{'ExceptPattern'} |
|
566
|
1 |
0 |
if $$rFD{'RemoveDuplicate'} |
|
569
|
1 |
0 |
if $$rFD{'OutputPrefix'} |
|
572
|
1 |
0 |
if ($$rFD{'Function'}) |
|
658
|
0 |
0 |
if ($$FH{'FileState'} != $$FH{'LastState'}) { } |
|
688
|
2 |
0 |
if (ref $r_listofpatterns eq 'ARRAY') { } |
|
697
|
0 |
0 |
if (-f $r_listofpatterns) { } |
|
702
|
0 |
0 |
unless stat $patternfile |
|
706
|
0 |
0 |
if /^#/ |
|
707
|
0 |
0 |
if /^\s*$/ |
|
759
|
0 |
1 |
if ($$rFD{'OutputPrefix'} =~ /g/) |
|
763
|
0 |
1 |
if ($$rFD{'OutputPrefix'} =~ /c/) |
|
769
|
0 |
5 |
if $TmpOutputPrefix eq 'p' |
|
771
|
0 |
5 |
if $TmpOutputPrefix eq 'f' |
|
773
|
0 |
5 |
if $TmpOutputPrefix eq 't' |
|
775
|
0 |
5 |
if $TmpOutputPrefix eq 'pt' |
|
777
|
0 |
5 |
if $TmpOutputPrefix eq 'tp' |
|
779
|
5 |
0 |
if $TmpOutputPrefix eq 'ft' |
|
781
|
0 |
5 |
if $TmpOutputPrefix eq 'tf' |
|
800
|
1 |
0 |
unless defined $pattern_sub |
|
804
|
9 |
1 |
if &$pattern_sub($LINE) |
|
821
|
1 |
0 |
unless defined $exceptpattern_sub |
|
825
|
8 |
1 |
unless &$exceptpattern_sub($LINE) |
|
960
|
0 |
1 |
if ($FS == 0) |
|
963
|
0 |
1 |
if ($FS == 2 or $FS == 4 or $FS == 6) |
|
967
|
0 |
1 |
if ($FS == 1 or $FS == 3 or $FS == 5 or $FS == 7) |
|
971
|
1 |
0 |
if ($FS == 8 or $FS == 14) |
|
974
|
1 |
0 |
if (defined $$FH{'fh'}) |
|
980
|
0 |
0 |
if ($FS == 9) |
|
983
|
0 |
0 |
if (defined $$FH{'fh'}) |
|
988
|
0 |
0 |
if ($FS == 12) |
|
990
|
0 |
0 |
if ($$FH{'open'}) |
|
995
|
0 |
0 |
if ($FS == 10 or $FS == 11 or $FS == 13 or $FS == 15) |
|
997
|
0 |
0 |
if ($$FH{'open'}) |
|
1006
|
0 |
1 |
if $MultiTail::DEBUG |
|
1025
|
0 |
0 |
if ($$FH{'LastMtime'} == $$FH{'stat'}{'mtime'} and $$FH{'stat'}{'mtime'} < $PresentTime - $$rFD{'MaxAge'} * 60 and $$FH{'open'}) |
|
1028
|
0 |
0 |
if defined $$FH{'fh'} |
|
1033
|
0 |
0 |
if ($$FH{'LastMtime'} == $$FH{'stat'}{'mtime'}) |
|
1036
|
0 |
0 |
if (not $$FH{'open'} and $$FH{'LastMtime'} < $$FH{'stat'}{'mtime'}) |
|
1057
|
1 |
0 |
stat($$FH{'name'}) ? : |
|
1058
|
0 |
1 |
unless $$FH{'exist'} |
|
1082
|
0 |
5 |
if $MultiTail::TC |
|
1083
|
0 |
5 |
$MultiTail::GMT ? : |
|
1105
|
0 |
0 |
if ($$rFD{'Debug'}) { } |
|
1123
|
0 |
0 |
unless defined $$FH{'fh'} |
|
1124
|
0 |
0 |
if $MultiTail::DEBUG |
|
1144
|
3 |
1 |
if (defined $$FH{'online'}) |
|
1168
|
0 |
1 |
if ($NewState > 15) |
|
1194
|
0 |
1 |
if ($seekbacklines <= 0) { } |
|
1234
|
0 |
0 |
unless (exists $$rFD{$attribute}) |
|
1237
|
0 |
0 |
if ($attribute eq 'Files') |
|
1241
|
0 |
0 |
if (@_) { } |