| line |
true |
false |
branch |
|
100
|
3 |
3 |
$type eq '' ? : |
|
102
|
3 |
3 |
unless ($@) |
|
107
|
0 |
3 |
unless $piname |
|
137
|
0 |
0 |
if (ref $arg eq 'ARRAY') { } |
|
169
|
74 |
0 |
unless ref $self |
|
182
|
46 |
229 |
if $self->def_datum eq $self->out_datum and $self->def_format eq $self->out_format |
|
183
|
229 |
0 |
unless $self->cache_lat and $self->cache_long |
|
233
|
0 |
21 |
if $method eq 'DESTROY' |
|
235
|
13 |
8 |
if ($method =~ /^format_(\w+)$/) { } |
|
|
5 |
3 |
elsif ($method =~ /^datum_(\w+)$/) { } |
|
|
1 |
2 |
elsif ($method =~ /^create_(\w+)$/ or $method =~ /^set_(\w+)$/) { } |
|
|
2 |
0 |
elsif ($method =~ /^get_(\w+)$/) { } |
|
237
|
0 |
13 |
unless $format_sub{$1} |
|
249
|
0 |
5 |
unless $ellip{$1} |
|
261
|
0 |
1 |
unless $code_sub{$1} |
|
272
|
0 |
2 |
unless $code_sub{$1} |
|
295
|
0 |
78 |
$_[0] && ref $_[0] eq 'HASH' ? : |
|
312
|
0 |
4711 |
if defined $_[1] |
|
339
|
0 |
293 |
$self->changeMyself ? : |
|
341
|
0 |
293 |
if wantarray and $self->enableWantarray |
|
349
|
0 |
229 |
unless defined $lat and defined $long |
|
350
|
221 |
8 |
if ($self->def_datum eq $self->out_datum) { } |
|
352
|
221 |
0 |
if $self->def_format ne $self->out_format |
|
356
|
8 |
0 |
unless $self->def_format eq 'degree' |
|
358
|
8 |
0 |
unless $self->out_format eq 'degree' |
|
386
|
2 |
0 |
if $degree >= 360 |
|
387
|
0 |
2 |
if $degree < 0 |
|
398
|
52 |
422 |
$coord =~ s/^(\+|-)// ? : |
|
404
|
52 |
422 |
if ($pon and $pon == 1 or $s eq '-') |
|
419
|
48 |
426 |
if ($farg eq 'spacetag') { } |
|
|
48 |
378 |
elsif ($farg eq 'mapion') { } |
|
|
130 |
248 |
elsif ($farg eq 'dmsn') { } |
|
|
200 |
48 |
elsif ($farg eq 'second' or $farg eq 'degree' or $farg eq 'radian') { } |
|
|
48 |
0 |
elsif ($farg eq 'gpsone') { } |
|
442
|
64 |
136 |
if ($farg eq 'second') { } |
|
|
88 |
48 |
elsif ($farg eq 'degree') { } |
|
477
|
48 |
426 |
if ($targ eq 'spacetag') { } |
|
|
48 |
378 |
elsif ($targ eq 'mapion') { } |
|
|
72 |
306 |
elsif ($targ eq 'dmsn') { } |
|
|
258 |
48 |
elsif ($targ eq 'second' or $targ eq 'degree' or $targ eq 'radian') { } |
|
|
48 |
0 |
elsif ($targ eq 'gpsone') { } |
|
494
|
146 |
112 |
if ($targ eq 'degree') |
|
498
|
48 |
210 |
if ($targ eq 'radian') |
|
549
|
0 |
16 |
unless $_ |
|
577
|
0 |
0 |
$cf == 0 ? : |
|
625
|
0 |
0 |
if $lat == $tlat and $lon == $tlon |
|
658
|
0 |
0 |
if ($c2a > 0) |