| line |
true |
false |
branch |
|
22
|
5 |
4 |
if $can_pt->can($key) |
|
30
|
5 |
9 |
if exists $has_pt->{$key} |
|
46
|
6 |
4 |
if (ref $parameters[0]) { } |
|
49
|
0 |
6 |
if (@parameters) |
|
53
|
3 |
3 |
if (eval {
do {
$pt->can('can')
}
}) { } |
|
|
1 |
2 |
elsif ('ARRAY' eq ref $pt) { } |
|
|
2 |
0 |
elsif ('HASH' eq ref $pt) { } |
|
55
|
2 |
3 |
if _can($pt, $m) |
|
62
|
1 |
0 |
if (defined $latk and defined $lonk) |
|
63
|
1 |
0 |
defined $elek ? : |
|
76
|
2 |
0 |
if (defined $latk and defined $lonk) |
|
78
|
1 |
1 |
defined $elek ? : |
|
85
|
0 |
4 |
if @parameters < 2 or @parameters > _MAX_POINTY_PARAMETERS() |
|
93
|
0 |
36 |
unless (defined $n) |
|
114
|
2 |
6 |
if ($lat == _MAXIMUM_LATITUDE() or $lat == _MINIMUM_LATITUDE()) |
|
123
|
0 |
4 |
if (@parameters) |
|
160
|
0 |
55 |
unless (exists $v->{$name}) |
|
163
|
50 |
5 |
unless (@remainder) |
|
182
|
1 |
55 |
unless $path =~ /^ ($num), ($num) (?: , ($num) ) ?
(?: $crsp ) ?
(?: $uncp ) ?
( $parm ) ?
$/msx |
|
189
|
0 |
55 |
defined $6 ? : |
|
214
|
8 |
6 |
defined $v->{'altitude'} ? : |
|
|
0 |
14 |
defined $v->{'crs'} ? : |
|
|
0 |
14 |
defined $v->{'uncertainty'} ? : |
|
|
0 |
14 |
defined $v->{'parameters'} ? : |
|
220
|
0 |
9 |
if $lat < _MINIMUM_LATITUDE() or $lat > _MAXIMUM_LATITUDE() |
|
222
|
0 |
9 |
if $lon < _MINIMUM_LONGITUDE() or $lon > _MAXIMUM_LONGITUDE() |
|
224
|
0 |
9 |
if ($lat == _MINIMUM_LATITUDE() or $lat == _MAXIMUM_LATITUDE()) |