| line |
true |
false |
branch |
|
32
|
0 |
0 |
unless $content |
|
34
|
0 |
0 |
if (ref $content eq 'CODE') |
|
56
|
0 |
0 |
unless $args->{'headers'} |
|
58
|
0 |
0 |
ref $value eq 'ARRAY' ? : |
|
76
|
0 |
0 |
@values == 1 ? : |
|
88
|
5 |
4 |
if (defined $headers_in) |
|
89
|
0 |
12 |
unless $headers_in |
|
99
|
0 |
0 |
unless my $e = shift() |
|
104
|
0 |
0 |
if $resp->{'status'} |
|
105
|
0 |
0 |
if $resp->{'reason'} |
|
120
|
0 |
0 |
unless my $url = shift() |
|
123
|
0 |
0 |
unless my($scheme, $host, $path_query) = $url =~ m[\A([^:/?#]+)://([^/?#]*)([^#]*)] |
|
127
|
0 |
0 |
unless $path_query =~ m[\A/] |
|
130
|
0 |
0 |
if ((my $i = index($host, '@')) != -1) |
|
138
|
0 |
0 |
$scheme eq 'https' ? : |
|
|
0 |
0 |
$scheme eq 'http' ? : |
|
|
0 |
0 |
$host =~ s/:(\d*)\z// && length $1 ? : |
|
143
|
0 |
0 |
length $host ? : |
|
152
|
0 |
0 |
unless my $time = shift() |
|
164
|
0 |
0 |
unless my $str = shift() |
|
166
|
0 |
0 |
if ($str =~ /^[SMTWF][a-z]+, +(\d{1,2}) ($MoY) +(\d\d\d\d) +(\d\d):(\d\d):(\d\d) +GMT$/) { } |
|
|
0 |
0 |
elsif ($str =~ /^[SMTWF][a-z]+, +(\d\d)-($MoY)-(\d{2,4}) +(\d\d):(\d\d):(\d\d) +GMT$/) { } |
|
|
0 |
0 |
elsif ($str =~ /^[SMTWF][a-z]+ +($MoY) +(\d{1,2}) +(\d\d):(\d\d):(\d\d) +(?:[^0-9]+ +)?(\d\d\d\d)$/) { } |
|
177
|
0 |
0 |
@tl_parts ? : |
|
178
|
0 |
0 |
$t < 0 ? : |
|
192
|
0 |
4 |
unless my $str = shift() |
|
193
|
4 |
0 |
if ($] ge '5.008') { } |
|
198
|
0 |
0 |
if length $str == do {
use bytes;
length $str
} |
|
209
|
0 |
1 |
unless $data and ref $data |
|
211
|
0 |
1 |
unless ref $data eq 'HASH' or ref $data eq 'ARRAY' |
|
214
|
1 |
0 |
ref $data eq 'HASH' ? : |
|
215
|
0 |
1 |
unless @params % 2 == 0 |
|
221
|
0 |
2 |
if (ref $value eq 'ARRAY') { } |
|
229
|
0 |
1 |
ref $data eq 'ARRAY' ? : |