| 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 |
|
128
|
0 |
0 |
$pause ? : |
|
129
|
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') { } |
|
142
|
0 |
0 |
$n++ == $index ? : |
|
151
|
0 |
0 |
if ($option =~ /^(-v|--version)$/) |
|
156
|
0 |
0 |
if ($option =~ /^(-\?|-h|--help)$/) |
|
160
|
0 |
0 |
if ($option =~ /^(-d|--debug)$/) |
|
164
|
0 |
0 |
if ($option =~ /^(-t|--trace)$/) |
|
168
|
0 |
0 |
if ($option =~ /^-/) |
|
171
|
0 |
0 |
if ($file) |
|
175
|
0 |
0 |
if (-f $option) { } |
|
182
|
0 |
0 |
if not $file |