| line |
true |
false |
branch |
|
135
|
0 |
1 |
unless my $handler = delete $arg{'handler'} |
|
144
|
32 |
0 |
unless my $meth = $$self{'handler'}->can($hookname) |
|
175
|
8 |
0 |
if ($url =~ m[^/]) |
|
186
|
10 |
11 |
if $old->eq($new) |
|
189
|
0 |
22 |
unless $clone->$part eq $old->$part |
|
200
|
0 |
11 |
if (@{$path{'old'};}) |
|
220
|
2 |
0 |
$$self{'handler'}->can('url_base') ? : |
|
229
|
0 |
2 |
$$self{'handler'}->can('default_url_base') ? : |
|
278
|
5 |
5 |
unless ($self->__url_base->eq($self->__default_url_base)) |
|
285
|
1 |
0 |
if (/ \b domain = \Q$domain\E ([;\s]|$) /x and /\b path = \Q$path\E ([;\s]|$) /x) |
|
298
|
10 |
0 |
if $self->cookie_jar |
|
302
|
2 |
8 |
if ($response->is_redirect) |
|
304
|
1 |
1 |
unless ($self->__url_base->eq($self->__default_url_base)) |