| 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' |
|
125
|
0 |
0 |
if $expect->{'isa'} |
|
127
|
0 |
0 |
if $expect->{'class'} |
|
130
|
0 |
0 |
if $key eq 'isa' or $key eq 'class' |
|
131
|
0 |
0 |
ref $expect->{$key} eq 'ARRAY' ? : |
|
132
|
0 |
0 |
ref $exp eq 'Regexp' ? : |
|
143
|
0 |
0 |
unless $ok |
|
153
|
0 |
5 |
if $hash->{$host} |
|
155
|
5 |
0 |
if $host =~ /([^\.]+\.\w+)$/u |
|
156
|
0 |
5 |
if $hash->{$host} |
|
158
|
5 |
0 |
if $host =~ /([^\.]+)\.\w+$/u |
|
171
|
0 |
10 |
if ref $@ |
|
172
|
5 |
5 |
$@ ? : |