| line |
true |
false |
branch |
|
134
|
0 |
3 |
if ref $class |
|
135
|
1 |
2 |
unless $class |
|
151
|
1 |
1 |
if @args |
|
192
|
2 |
1 |
wantarray ? : |
|
253
|
0 |
4 |
unless (eval {
do {
$rslt = $self->_request("x", $lon, "y", $lat, "units", $self->{'units'});
1
}
}) |
|
258
|
0 |
4 |
unless $rslt |
|
261
|
0 |
4 |
unless not $valid or is_valid($rslt) |
|
269
|
0 |
0 |
if ($retry <= $retry_limit) |
|
277
|
0 |
0 |
if $self->{'croak'} |
|
291
|
2 |
35 |
unless $access_type{$name} |
|
329
|
1 |
5 |
if ('HASH' eq $ref) { } |
|
|
1 |
4 |
elsif ($ref) { } |
|
358
|
2 |
10 |
unless $access_type{$name} |
|
360
|
0 |
10 |
unless exists $mutator{$name} |
|
367
|
0 |
8 |
if $clean |
|
375
|
0 |
0 |
unless "CODE" eq ref $val |
|
382
|
1 |
4 |
if defined $val and not $val =~ / \A \d+ \z /msx |
|
393
|
0 |
0 |
if (defined $val) { } |
|
394
|
0 |
0 |
unless &looks_like_number($val) and $val >= 0 |
|
398
|
0 |
0 |
unless $using_time_hires or $val >= 1 or $val == 0 |
|
410
|
0 |
0 |
unless defined $val and $val =~ / \A \d+ \z /msx |
|
450
|
0 |
10 |
unless my $info = $dep{$group} |
|
453
|
0 |
10 |
unless defined $item or defined($item = $info->{'dflt'}->()) |
|
455
|
10 |
0 |
unless $info->{'item'}{$item} |
|
458
|
0 |
0 |
if $info->{'item'}{$item} > 2 |
|
460
|
0 |
0 |
unless warnings::enabled("deprecated") |
|
464
|
0 |
0 |
if $info->{'item'}{$item} == 1 |
|
479
|
0 |
0 |
if $self->{'croak'} |
|
480
|
0 |
0 |
if $self->{'carp'} |
|
493
|
9 |
3 |
unless builtin::blessed($object) |
|
516
|
1 |
11 |
if (_instance($obj, $class)) |
|
537
|
0 |
41 |
unless ref $self |
|
550
|
0 |
4 |
if ref $self |
|
577
|
0 |
4 |
unless defined $arg{'units'} |
|
578
|
3 |
1 |
$arg{'units'} =~ / \A meters \z /imsx ? : |
|
587
|
0 |
4 |
if $self->{'trace'} |
|
589
|
0 |
4 |
exists $self->{'_hack_result'} ? : |
|
591
|
0 |
0 |
'CODE' eq ref $data ? : |
|
594
|
0 |
4 |
if ($self->{'trace'}) |
|
595
|
0 |
0 |
if (my $redir = $rslt->request) |
|
602
|
0 |
4 |
unless $rslt->is_success |
|
606
|
0 |
4 |
unless eval {
do {
$rslt = $json->decode($rslt->decoded_content);
ref $rslt
}
} |
|
612
|
4 |
0 |
if ($self->get('compatible')) { } |
|
648
|
4 |
0 |
if defined $rslt->{'Elevation'} and defined($places = $self->get("places")) |