line |
true |
false |
branch |
163
|
0 |
94 |
if $DEBUG |
165
|
20 |
27 |
if ($key =~ /^ell/i) { } |
|
16 |
11 |
elsif ($key =~ /^uni/i) { } |
|
5 |
6 |
elsif ($key =~ /^dis/i) { } |
|
4 |
2 |
elsif ($key =~ /^lon/i) { } |
|
2 |
0 |
elsif ($key =~ /^bea/i) { } |
185
|
0 |
94 |
if $DEBUG |
213
|
45 |
66 |
if ($units =~ /deg/i) { } |
|
66 |
0 |
elsif ($units =~ /rad/i) { } |
218
|
0 |
0 |
unless $units =~ /rad/i |
257
|
0 |
95 |
if $DEBUG |
261
|
95 |
0 |
if (defined $unit) { } |
266
|
0 |
285 |
if $DEBUG |
267
|
95 |
190 |
if ($unit =~ /^$re/i) |
277
|
0 |
95 |
if ($conversion == 0) |
278
|
0 |
0 |
if (&looks_like_number($unit)) { } |
309
|
0 |
137 |
if $DEBUG |
310
|
0 |
137 |
unless (exists $ellipsoids{$ellipsoid}) |
317
|
1 |
136 |
if ($recip == 0) { } |
348
|
0 |
3 |
unless defined $recip |
349
|
3 |
0 |
if ($major) { } |
374
|
94 |
0 |
if ($#_ > 0) { } |
400
|
94 |
0 |
if ($#_ > 0) { } |
442
|
21 |
24 |
if ($key =~ /^ell/i) { } |
|
21 |
3 |
elsif ($key =~ /^uni/i) { } |
|
1 |
2 |
elsif ($key =~ /^dis/i) { } |
|
1 |
1 |
elsif ($key =~ /^lon/i) { } |
|
1 |
0 |
elsif ($key =~ /^bea/i) { } |
456
|
0 |
21 |
if $DEBUG |
480
|
90 |
0 |
if (defined $lat) { } |
481
|
90 |
0 |
if $units eq 'degrees' |
499
|
0 |
90 |
if ($DEBUG) |
504
|
90 |
0 |
if ($self->{'units'} eq 'degrees') |
528
|
0 |
1220 |
if $DEBUG |
549
|
0 |
432 |
if $DEBUG |
552
|
0 |
432 |
if $DEBUG |
573
|
0 |
408 |
if $DEBUG |
575
|
0 |
408 |
if $DEBUG |
598
|
0 |
252 |
if $DEBUG |
600
|
0 |
252 |
if $DEBUG |
603
|
252 |
0 |
if (wantarray) { } |
628
|
0 |
100 |
if $DEBUG |
630
|
0 |
100 |
if $DEBUG |
632
|
0 |
100 |
if $DEBUG |
656
|
200 |
0 |
if $units eq 'degrees' |
657
|
0 |
200 |
if $DEBUG |
678
|
0 |
1996 |
if $DEBUG |
694
|
0 |
1996 |
if ($DEBUG) |
703
|
0 |
1996 |
if $DEBUG |
706
|
0 |
9413 |
if $DEBUG |
712
|
0 |
9413 |
if $DEBUG |
719
|
72 |
9341 |
if ($sy == 0) { } |
725
|
0 |
9413 |
if $DEBUG |
730
|
8669 |
744 |
if ($c2a > 0) |
740
|
0 |
9413 |
if ($DEBUG) |
757
|
0 |
1996 |
if ($DEBUG) |
767
|
0 |
1996 |
if $DEBUG |
770
|
0 |
1996 |
if ($self->{'symmetric'}) { } |
771
|
0 |
0 |
if $faz < -3.1415926535897931 |
772
|
0 |
0 |
if $faz >= 3.1415926535897931 |
774
|
946 |
1050 |
if $faz < 0 |
775
|
0 |
1996 |
if $faz >= $twopi |
780
|
0 |
1996 |
if $DEBUG |
795
|
0 |
400 |
if ($DEBUG) |
813
|
400 |
0 |
if $cf != 0 |
827
|
0 |
400 |
if ($DEBUG) |
875
|
9184 |
56 |
if $units eq 'degrees' |
894
|
824 |
676 |
if ($self->{$elem}) { } |
903
|
1476 |
24 |
if $self->{'units'} eq 'degrees' |