| line |
true |
false |
branch |
|
138
|
26 |
70 |
if @_ < 3 |
|
142
|
1 |
95 |
unless /^$http_token\z/o |
|
145
|
3 |
92 |
if /^(?:connect|trac[ek])\z/i |
|
158
|
0 |
92 |
if (utf8::is_utf8("$$self[3]")) |
|
170
|
8 |
78 |
if (@_) { } |
|
|
3 |
77 |
elsif ($url->can('userinfo') and defined(my $ui = $url->userinfo)) { } |
|
171
|
7 |
1 |
if (defined($$self[5] = shift())) |
|
172
|
1 |
6 |
if $$self[5] =~ /:/ |
|
179
|
5 |
1 |
if (@_) { } |
|
|
1 |
0 |
elsif ($url->can('userinfo') and defined(my $ui = $url->userinfo)) { } |
|
184
|
1 |
0 |
if $ui =~ /:(.*)/s |
|
192
|
2 |
1 |
if defined $pw |
|
207
|
0 |
184 |
if utf8::is_utf8($_[0]) |
|
217
|
1 |
107 |
unless length LWP::Protocol::implementor($new->scheme) |
|
224
|
6 |
101 |
if not defined $host1 && defined $host2 or $host1 ne $host2 |
|
227
|
0 |
101 |
if $current->scheme ne $new->scheme |
|
231
|
1 |
100 |
if eval {
do {
$current->port
}
} ne eval {
do {
$new->port
}
} |
|
237
|
5 |
82 |
unless $_[0][8] == 1 |
|
250
|
75 |
7 |
unless $$self[10] |
|
251
|
21 |
61 |
if defined $$self[5] or defined $$self[6] |
|
255
|
9 |
73 |
if (not $$self[2] =~ /^(?:get|head)\z/i and defined $data) |
|
258
|
9 |
0 |
if (defined blessed($data)) |
|
259
|
1 |
8 |
if ($data->isa('HTML::DOM')) { } |
|
|
1 |
7 |
elsif ($data->can('createElement')) { } |
|
272
|
0 |
1 |
if ($data->can('serialize')) { } |
|
299
|
7 |
2 |
if (not defined $charset) { } |
|
|
2 |
0 |
elsif (my $enc = find_encoding($charset)) { } |
|
319
|
27 |
55 |
if ($async) |
|
322
|
1 |
26 |
unless $$self[8] |
|
326
|
1 |
25 |
unless $$self[8] |
|
354
|
4 |
74 |
if ($error or $redirected and $res->code =~ /^3/ and $async || ($error = 'HTML::DOM::Exception'->new(19, 'Infinite redirect')), 1 or defined($error = $res->header('client-warning')) and $async || ($error = 'HTML::DOM::Exception'->new(19, $error)), 1) |
|
377
|
3 |
3 |
$async ? : |
|
380
|
22 |
52 |
if ($async) |
|
383
|
1 |
21 |
unless $$self[8] |
|
401
|
3 |
4 |
if $$self[8] > 1 and $$self[8] < 4 |
|
410
|
2 |
9 |
if $_[0][8] <= 1 |
|
418
|
1 |
4 |
if $_[0][8] <= 1 |
|
425
|
5 |
27 |
unless $_[0][8] == 1 |
|
428
|
1 |
26 |
unless $_[1] =~ /^$http_token\z/o |
|
431
|
1 |
25 |
unless defined $_[2] |
|
432
|
1 |
24 |
unless $_[2] =~ /^$http_field_val\z/o |
|
454
|
16 |
8 |
if $_[1] =~ /^(?:
(?:
accept-encoding
|
con(?:nection|tent-(?:length|transfer-encoding))
|
(?:dat|keep-aliv|upgrad)e
|
(?:expec|hos)t
|
referer
|
t(?:e|ra(?:iler|nsfer-encoding))
|
via
|
)\z
|
(?:proxy|sec)-
)/xi |
|
484
|
9 |
2 |
defined $_[1] ? : |
|
|
11 |
0 |
if @_ > 1 |
|
498
|
73 |
3 |
defined $cs ? : |
|
505
|
4 |
13 |
unless $$self[8] == 4 |
|
506
|
6 |
7 |
unless $$self[11] |
|
510
|
2 |
3 |
unless ${$$self[0]->plugin('Ajax');}++ |
|
520
|
2 |
6 |
if $_[0][8] < 3 |
|
526
|
2 |
3 |
if $_[0][8] < 3 |
|
544
|
1 |
4 |
if $capture |
|
545
|
1 |
3 |
unless $name =~ /^readystatechange\z/i |
|
552
|
0 |
2 |
if $capture |
|
553
|
0 |
2 |
unless $name =~ /^readystatechange\z/i |
|
554
|
2 |
0 |
if exists $$self[7] |
|
563
|
0 |
240 |
unless $name =~ /^readystatechange\z/i |
|
570
|
181 |
59 |
unless $$target[7] |
|
571
|
0 |
66 |
defined blessed($_) && $_->can('handleEvent') ? : |