| line |
true |
false |
branch |
|
112
|
0 |
0 |
if $CHAT |
|
115
|
0 |
0 |
if defined $_[0] |
|
127
|
0 |
0 |
unless defined $country and defined $postcode |
|
128
|
0 |
0 |
unless exists $countriesList{$country} |
|
133
|
0 |
0 |
if $CHAT |
|
142
|
0 |
0 |
unless my $req = 'HTTP::Request'->new('GET', $url) |
|
144
|
0 |
0 |
unless ($res->is_success) |
|
145
|
0 |
0 |
if $CHAT |
|
148
|
0 |
0 |
if $CHAT |
|
164
|
0 |
0 |
unless my $p = 'HTML::TokeParser'->new(\$doc) |
|
168
|
0 |
0 |
if (@$token[1] eq 'input' and defined @$token[2] and exists %{@$token[2];}->{'name'} and exists %{@$token[2];}->{'value'} and %{@$token[2];}->{'name'} =~ /^GAD\d$/ and not %{@$token[2];}->{'value'} =~ /^\s*$/) |
|
176
|
0 |
0 |
if (defined $address and not $address =~ /$_/i) |
|
181
|
0 |
0 |
if defined $address |
|
183
|
0 |
0 |
if not defined $address and $doc =~ /Address not found/i |
|
186
|
0 |
0 |
unless $p = 'HTML::TokeParser'->new(\$doc) |
|
191
|
0 |
0 |
if (defined @$token[2]) |
|
193
|
0 |
0 |
if (defined $1) |