blib/lib/Test/WWW/Mechanize/Object.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 11 | 17 | 64.7 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
195 | 2 | 9 | 5 | @{$path{'clone'};} and @{$path{'old'};} |
11 | 0 | 5 | @{$path{'clone'};} and @{$path{'old'};} and $path{'clone'}[0] eq $path{'old'}[0] | |
285 | 0 | 0 | 1 | / \b domain = \Q$domain\E ([;\s]|$) /x and /\b path = \Q$path\E ([;\s]|$) /x |
line | l | !l | condition |
---|---|---|---|
284 | 0 | 1 | $self->__default_url_base->path || '/' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
220 | 41 | 2 | 0 | $$self{'__url_base'} ||= $$self{'handler'}->can('url_base') ? 'URI'->new($$self{'handler'}->url_base)->canonical : $self->__default_url_base |
229 | 33 | 2 | 0 | $$self{'__default_url_base'} ||= 'URI'->new($$self{'handler'}->can('default_url_base') ? $$self{'handler'}->default_url_base : 'http://localhost.localdomain') |