Branch Coverage

blib/lib/Language/SNUSP.pm
Criterion Covered Total %
branch 0 58 0.0


line true false branch
48 0 0 unless open my $fh, '<', $file
54 0 0 if length $_ > $width
61 0 0 $debug ? :
0 0 $trace ? :
70 0 0 if (my $op = $ops{substr $code, $pos, 1})
72 0 0 if $pos < 0 or $pos > $max
81 0 0 if (my $op = $ops{$char})
83 0 0 if $pos < 0 or $pos > $max
84 0 0 if $char eq '.'
111 0 0 if ($dir and !$pause || $key eq 'n')
113 0 0 if (my $op = $ops{substr $code, $pos, 1})
114 0 0 if $pos < 0 or $pos > $max
116 0 0 if $dir == 0
127 0 0 $pause ? :
128 0 0 if $sleep > 0.011
0 0 if ($key =~ /^[\+\=]$/) { }
0 0 elsif ($key eq '-') { }
0 0 elsif ($key eq ' ') { }
0 0 elsif ($key eq 'n') { }
0 0 elsif ($key eq 'q') { }
140 0 0 $n++ == $index ? :
150 0 0 if ($option =~ /^(-v|--version)$/)
155 0 0 if ($option =~ /^(-\?|-h|--help)$/)
159 0 0 if ($option =~ /^(-d|--debug)$/)
163 0 0 if ($option =~ /^(-t|--trace)$/)
167 0 0 if ($option =~ /^-/)
170 0 0 if ($file)
174 0 0 if (-f $option) { }
181 0 0 if not $file