| line |
true |
false |
branch |
|
186
|
0 |
231 |
if $DEBUG |
|
188
|
105 |
43 |
if ($key =~ /^ell/i) { } |
|
|
21 |
22 |
elsif ($key =~ /^(uni|ang)/i) { } |
|
|
12 |
10 |
elsif ($key =~ /^dis/i) { } |
|
|
6 |
4 |
elsif ($key =~ /^lon/i) { } |
|
|
4 |
0 |
elsif ($key =~ /^bea/i) { } |
|
208
|
0 |
231 |
if $DEBUG |
|
262
|
62 |
218 |
if ($unit =~ /deg/i) { } |
|
|
218 |
0 |
elsif ($unit =~ /rad/i) { } |
|
267
|
0 |
0 |
unless $unit =~ /rad/i |
|
307
|
0 |
239 |
if $DEBUG |
|
311
|
239 |
0 |
if (defined $unit) { } |
|
316
|
0 |
816 |
if $DEBUG |
|
317
|
239 |
577 |
if ($unit =~ /^$re/i) |
|
327
|
0 |
239 |
if ($conversion == 0) |
|
328
|
0 |
0 |
if (&looks_like_number($unit)) { } |
|
359
|
0 |
314 |
if $DEBUG |
|
360
|
0 |
314 |
unless (exists $ellipsoids{$ellipsoid}) |
|
367
|
1 |
313 |
if ($recip == 0) { } |
|
398
|
0 |
3 |
unless defined $recip |
|
399
|
3 |
0 |
if ($major) { } |
|
427
|
235 |
0 |
if ($#_ > 0) { } |
|
456
|
235 |
0 |
if ($#_ > 0) { } |
|
498
|
21 |
24 |
if ($key =~ /^ell/i) { } |
|
|
21 |
3 |
elsif ($key =~ /^(uni|ang)/i) { } |
|
|
1 |
2 |
elsif ($key =~ /^dis/i) { } |
|
|
1 |
1 |
elsif ($key =~ /^lon/i) { } |
|
|
1 |
0 |
elsif ($key =~ /^bea/i) { } |
|
512
|
0 |
21 |
if $DEBUG |
|
575
|
10 |
0 |
if $angle_unit eq 'degrees' |
|
690
|
90 |
0 |
if (defined $lat) { } |
|
691
|
90 |
0 |
if $units eq 'degrees' |
|
707
|
0 |
90 |
if ($DEBUG) |
|
712
|
90 |
0 |
if ($self->{'angle_unit'} eq 'degrees') |
|
736
|
0 |
1220 |
if $DEBUG |
|
757
|
0 |
2432 |
if $DEBUG |
|
760
|
0 |
2432 |
if $DEBUG |
|
781
|
0 |
2408 |
if $DEBUG |
|
783
|
0 |
2408 |
if $DEBUG |
|
806
|
0 |
252 |
if $DEBUG |
|
808
|
0 |
252 |
if $DEBUG |
|
811
|
252 |
0 |
if (wantarray) { } |
|
836
|
0 |
100 |
if $DEBUG |
|
838
|
0 |
100 |
if $DEBUG |
|
840
|
0 |
100 |
if $DEBUG |
|
864
|
200 |
0 |
if $units eq 'degrees' |
|
865
|
0 |
200 |
if $DEBUG |
|
886
|
0 |
3996 |
if $DEBUG |
|
902
|
0 |
3996 |
if ($DEBUG) |
|
911
|
0 |
3996 |
if $DEBUG |
|
914
|
0 |
22431 |
if $DEBUG |
|
920
|
0 |
22431 |
if $DEBUG |
|
927
|
72 |
22359 |
if ($sy == 0) { } |
|
933
|
0 |
22431 |
if $DEBUG |
|
938
|
21687 |
744 |
if ($c2a > 0) |
|
948
|
0 |
22431 |
if ($DEBUG) |
|
965
|
0 |
3996 |
if ($DEBUG) |
|
975
|
0 |
3996 |
if $DEBUG |
|
979
|
0 |
3996 |
if $DEBUG |
|
994
|
0 |
2400 |
if ($DEBUG) |
|
1012
|
2400 |
0 |
if $cf != 0 |
|
1026
|
0 |
2400 |
if ($DEBUG) |
|
1073
|
9184 |
14056 |
$units eq 'degrees' ? : |
|
1089
|
4824 |
2676 |
if ($self->{$elem}) { } |
|
1098
|
1476 |
6024 |
if $self->{'angle_unit'} eq 'degrees' |
|
1107
|
5 |
5 |
$_[0] > $_[1] ? : |
|
1115
|
5 |
5 |
$_[0] < $_[1] ? : |