| line |
true |
false |
branch |
|
59
|
0 |
0 |
unless ref $err eq 'HASH' |
|
70
|
8 |
3 |
ref $args eq 'HASH' ? : |
|
72
|
11 |
0 |
unless ref $args->{'url'} |
|
76
|
5 |
6 |
if $args->{'url'} =~ /$PROTOCOL_RE/u |
|
77
|
1 |
10 |
unless $link or $args->{'url'}->host |
|
80
|
5 |
5 |
$link =~ /::/u ? : |
|
81
|
5 |
5 |
unless _load($link) |
|
98
|
8 |
0 |
if $user_agent |
|
105
|
3 |
5 |
if $err |
|
106
|
1 |
7 |
if $format eq 'html' |
|
108
|
3 |
4 |
$err ? : |
|
109
|
3 |
4 |
unless $format eq 'jsonp' |
|
123
|
0 |
0 |
if $ENV{'N'} and $ENV{'N'} ne ++$n |
|
128
|
0 |
0 |
if $expect->{'isa'} |
|
130
|
0 |
0 |
if $expect->{'class'} |
|
131
|
0 |
0 |
if $json->{'html'} |
|
134
|
0 |
0 |
if $key eq 'isa' or $key eq 'class' |
|
135
|
0 |
0 |
ref $expect->{$key} eq 'ARRAY' ? : |
|
136
|
0 |
0 |
ref $exp eq 'Regexp' ? : |
|
147
|
0 |
0 |
unless $ok |
|
157
|
0 |
5 |
if $hash->{$host} |
|
159
|
5 |
0 |
if $host =~ /([^\.]+\.\w+)$/u |
|
160
|
0 |
5 |
if $hash->{$host} |
|
162
|
5 |
0 |
if $host =~ /([^\.]+)\.\w+$/u |
|
175
|
0 |
10 |
if ref $@ |
|
176
|
5 |
5 |
$@ ? : |