| line |
true |
false |
branch |
|
30
|
0 |
0 |
if (not defined $b) { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (&is_number($b)) { } |
|
49
|
1 |
0 |
if $wait |
|
58
|
0 |
0 |
if (@$argv and not $App::optex::scroll::argv->[0] =~ /^-M/u and defined(my $i = &first(sub {
$App::optex::scroll::argv->[$_] eq "--";
}
, keys @$argv))) |
|
61
|
0 |
0 |
if (local(@ARGV) = splice(@$argv, 0, $i)) |
|
64
|
0 |
0 |
unless &GetOptions(\%opt, hash_to_spec(\%opt)) |
|
68
|
0 |
0 |
if (defined $i and not $App::optex::scroll::argv->[0] =~ /^-M/u) |
|
70
|
0 |
0 |
if (local(@ARGV) = splice(@$argv, 0, $i)) |
|
73
|
0 |
0 |
unless &GetOptions(\%opt, hash_to_spec(\%opt)) |
|
80
|
0 |
0 |
unless my($l, $c) = cursor_position() |
|
83
|
0 |
0 |
if (my $time = $opt{'interval'}) |
|
99
|
0 |
0 |
if ($debug) |
|
104
|
0 |
0 |
unless open my $tty, "+<", "/dev/tty" |
|
109
|
0 |
0 |
if ($debug) |
|
110
|
0 |
0 |
$key =~ /\P{Cc}/u ? : |
|
115
|
0 |
0 |
if $answer =~ /$end_re/u |
|
118
|
0 |
0 |
if ($debug) |
|
128
|
0 |
0 |
if (ref $opt{$a} eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (ref $opt{$a} eq 'ARRAY') { } |