| line |
true |
false |
branch |
|
335
|
0 |
0 |
if (not defined $b) { } |
|
|
0 |
0 |
elsif ($ref eq 'SCALAR') { } |
|
|
0 |
0 |
elsif (&is_number($b)) { } |
|
349
|
0 |
0 |
if (@$argv and not $App::optex::pingu::argv->[0] =~ /^-M/u and defined(my $i = &first(sub {
$App::optex::pingu::argv->[$_] eq "--";
}
, keys @$argv))) |
|
352
|
0 |
0 |
if (local(@ARGV) = splice(@$argv, 0, $i)) |
|
355
|
0 |
0 |
unless &GetOptions(\%opt, hash_to_spec(\%opt)) |
|
370
|
0 |
0 |
unless $file |
|
375
|
0 |
0 |
utf8::is_utf8($_) ? : |
|
379
|
0 |
0 |
$opt{'interval'} > 0 ? : |
|
381
|
0 |
0 |
if $pingu |
|
383
|
0 |
0 |
if eof |
|
384
|
0 |
0 |
if $sleep > 0 |
|
390
|
0 |
0 |
unless exists $opt{$k} |