Branch Coverage

blib/lib/Statistics/R/IO.pm
Criterion Covered Total %
branch 21 30 70.0


line true false branch
24 0 265 unless open my $f, shift()
28 0 265 unless defined $rc
29 53 212 if (substr($data, 0, 2) eq "\037\213") { }
53 159 elsif (substr($data, 0, 3) eq 'BZh') { }
53 106 elsif (substr($data, 0, 6) eq "\3757zXZ\000") { }
44 0 212 unless $state
45 0 212 unless $state->eof
51 0 28 unless open my $f, shift()
55 0 28 unless defined $rc
56 7 21 if (substr($data, 0, 2) eq "\037\213") { }
7 14 elsif (substr($data, 0, 3) eq 'BZh') { }
7 7 elsif (substr($data, 0, 6) eq "\3757zXZ\000") { }
70 0 21 if (substr($data, 0, 5) ne "RDX2\n")
76 0 21 unless $state
77 0 21 unless $state->eof