| line |
true |
false |
branch |
|
244
|
3 |
18 |
$_ eq '-any' ? : |
|
|
3 |
21 |
$_ eq '-ra' ? : |
|
299
|
0 |
16 |
unless my(@parse_flags) = grep(defined($_), delete @wanted{keys %mask}) |
|
302
|
0 |
16 |
unless defined(my $between_template = $between_template{&sum0(@mask{@parse_flags})}) |
|
308
|
0 |
16 |
if @extra |
|
311
|
0 |
16 |
if keys %wanted |
|
324
|
12 |
4 |
$want_trim ? : |
|
|
12 |
4 |
$want_trim ? : |
|
376
|
2 |
5 |
if ($coord eq '-ra') { } |
|
|
5 |
0 |
elsif ($coord eq '-lat' or $coord eq '-dec') { } |
|
|
0 |
0 |
elsif ($coord eq '-neglong' or $coord eq '-negdeg') { } |
|
382
|
1 |
4 |
if abs $degrees > 90 |
|
402
|
2 |
4 |
if $copysign |