| 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 ? : |