| line |
true |
false |
branch |
|
26
|
0 |
0 |
unless my $uaname = shift() |
|
33
|
0 |
0 |
unless $obj->{'_server'} and $obj->{'ip'} |
|
38
|
0 |
0 |
if ($res->is_success) { } |
|
48
|
0 |
0 |
unless my $ip = shift() |
|
55
|
0 |
0 |
unless my $name = shift() |
|
62
|
0 |
0 |
if (exists $ENV{'REMOTE_ADDR'} and defined $ENV{'REMOTE_ADDR'}) { } |
|
72
|
0 |
0 |
exists $obj->{'Latitude'} ? : |
|
77
|
0 |
0 |
exists $obj->{'Longitude'} ? : |
|
92
|
0 |
0 |
exists $obj->{'City'} ? : |
|
97
|
0 |
0 |
exists $obj->{'Country'} ? : |
|
102
|
0 |
0 |
exists $obj->{'Country_Code'} ? : |
|
107
|
0 |
0 |
exists $obj->{'State'} ? : |
|
112
|
0 |
0 |
if (exists $obj->{'Latitude'} and exists $obj->{'Longitude'}) { } |
|
113
|
0 |
0 |
wantarray ? : |
|
125
|
0 |
0 |
if (@_) |
|
130
|
0 |
0 |
unless (exists $obj->{'Latitude'} and defined $obj->{'Latitude'} and exists $obj->{'Longitude'} and defined $obj->{'Longitude'} and ref $params eq 'HASH' and $params->{'apikey'}) |
|
144
|
0 |
0 |
if ($params->{'control'}) |
|
145
|
0 |
0 |
if ($params->{'control'} eq 'large') { } |
|
|
0 |
0 |
elsif ($params->{'control'} eq 'small') { } |
|
157
|
0 |
0 |
if ($params->{'scalecontrol'}) |
|
162
|
0 |
0 |
if ($params->{'typecontrol'}) |
|
167
|
0 |
0 |
if ($params->{'overviewcontrol'}) |
|
208
|
0 |
0 |
unless my $res = shift() |
|
220
|
0 |
0 |
if ($k eq 'Country') { } |
|
|
0 |
0 |
elsif ($k eq 'City') { } |
|
|
0 |
0 |
elsif ($k eq 'Latitude' or $k eq 'Longitude') { } |
|
226
|
0 |
0 |
if ($v =~ /(.*),\s+([A-Z]+)/) |
|
238
|
0 |
0 |
if (defined $obj->{'Latitude'} and defined $obj->{'Longitude'}) { } |
|
239
|
0 |
0 |
wantarray ? : |
|
243
|
0 |
0 |
wantarray ? : |