Branch Coverage
testout/t1000files_probe.pl
Criterion
Covered
Total
%
branch
2
4
50.0
line
true
false
branch
4
0
1
unless my $file = shift @ARGV
5
0
1
unless open FH, "< $file"