| 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 |