Branch Coverage

blib/lib/PerlIO/via/Skip.pm
Criterion Covered Total %
branch 19 36 52.7


line true false branch
23 8 5 $_[0] .. $_[1] ? :
24 8 5 $$obj{'n_'} > ($$obj{'after'} || 0) ? :
30 2 25 unless $mode =~ /^[rwa]$/
32 19 6 defined $ENV{'viaSKIP'} ? :
37 0 6 if $$obj{'skipblanklines'}
38 0 6 if $$obj{'skipcomments'}
40 0 6 defined $$obj{'start'} ? :
43 0 6 defined $$obj{'end'} ? :
49 6 0 unless $pats
50 0 0 unless ref $pats
60 0 1 if defined $$obj{'maxlines'} and $$obj{'nread_'} >= $$obj{'maxlines'}
63 0 1 unless defined $_
70 0 0 unless defined $_
81 7 0 unless @{$$obj{'qr_'};}
83 0 0 if $line =~ /$_/
93 0 6 if defined $$obj{'maxlines'} and $$obj{'nwrite_'} >= $$obj{'maxlines'}
95 0 6 unless pattern_check($obj, $_)
99 0 6 unless $$obj{'bipolar'}($obj, $s, $e)