| line |
true |
false |
branch |
|
24
|
2 |
32 |
unless defined $str
|
|
27
|
12 |
20 |
if ($str =~ /^\s*\[/ and $str =~ /\]\s*$/) { }
|
|
30
|
12 |
0 |
if ($json and 'ARRAY' eq ref $json)
|
|
39
|
1 |
11 |
'ARRAY' eq ref $json->[6] ? :
|
|
77
|
0 |
23 |
unless defined $secret
|
|
78
|
15 |
8 |
unless length $secret
|
|
79
|
1 |
7 |
unless defined $self->md5
|
|
82
|
7 |
0 |
if &is_utf8($check)
|
|
100
|
1 |
2 |
unless defined $self->opt
|
|
101
|
1 |
1 |
if not ref $self->opt and $self->opt eq 'extra'
|
|
107
|
0 |
5 |
unless defined $self->opt
|
|
108
|
5 |
0 |
if ref $self->opt
|
|
114
|
0 |
4 |
unless $self->is_near
|
|
120
|
2 |
32 |
unless defined $self
|
|
121
|
0 |
32 |
unless ref $self
|
|
122
|
8 |
24 |
unless defined $self->address
|
|
123
|
0 |
24 |
unless length $self->address
|
|
125
|
10 |
14 |
if ($self->type)
|
|
126
|
8 |
2 |
if ($self->type eq 'p') { }
|
|
|
1 |
1 |
elsif ($self->type eq 't') { }
|
|
|
0 |
1 |
elsif (not defined $self->type) { }
|
|
130
|
0 |
8 |
if $e
|
|
135
|
0 |
8 |
if $lon
|
|
140
|
0 |
8 |
if $lat
|
|
148
|
0 |
0 |
if $e
|
|
153
|
0 |
0 |
if $lon
|
|
158
|
0 |
0 |
if $lat
|
|
164
|
3 |
20 |
unless $self->check_secret($secret)
|