| line |
true |
false |
branch |
|
63
|
1 |
55 |
unless $path =~ /^$num(?:,$num){1,2}$/ |
|
80
|
6 |
14 |
if (ref $_[0]) { } |
|
83
|
0 |
6 |
if @_ |
|
85
|
3 |
3 |
if (UNIVERSAL::can($pt, 'can')) { } |
|
|
1 |
2 |
elsif ('ARRAY' eq ref $pt) { } |
|
|
2 |
0 |
elsif ('HASH' eq ref $pt) { } |
|
87
|
2 |
3 |
if $pt->can($m) |
|
93
|
3 |
1 |
if $pt->can($key) |
|
102
|
1 |
0 |
if (defined $latk and defined $lonk) |
|
103
|
1 |
0 |
defined $elek ? : |
|
114
|
5 |
9 |
if exists $$pt{$key} |
|
123
|
2 |
0 |
if (defined $latk and defined $lonk) |
|
124
|
1 |
1 |
defined $elek ? : |
|
132
|
0 |
14 |
if @_ < 2 or @_ > 3 |
|
146
|
0 |
19 |
unless defined $lat |
|
147
|
0 |
19 |
unless defined $lon |
|
155
|
0 |
19 |
if $lat < -90 or $lat > 90 |
|
156
|
0 |
19 |
if $lon < -180 or $lon > 180 |
|
157
|
0 |
19 |
if $lat == -90 or $lon == 90 |
|
228
|
2 |
5 |
if $lat == 90 or $lat == -90 |
|
249
|
9 |
47 |
if (@_) |
|
262
|
8 |
35 |
if (@_) |