| line |
true |
false |
branch |
|
19
|
7 |
2 |
if ($base) |
|
25
|
0 |
9 |
if $uri->isa('URI::Nested') |
|
28
|
3 |
6 |
if $scheme and not $uri->scheme |
|
29
|
9 |
0 |
if (my $nested_class = $class->nested_class) |
|
30
|
9 |
0 |
unless $uri->isa($nested_class) |
|
40
|
3 |
5 |
if $uri->scheme |
|
43
|
3 |
2 |
unless $base->isa('URI::Nested') |
|
45
|
1 |
1 |
if $$base[1] |
|
54
|
17 |
0 |
if ($str =~ s/^($prefix)://i) |
|
63
|
11 |
6 |
if (my $nested_class = $class->nested_class) |
|
64
|
11 |
0 |
unless $uri->isa($nested_class) |
|
73
|
7 |
2 |
unless @_ |
|
77
|
1 |
1 |
if lc $new ne $self->prefix |
|
97
|
5 |
3 |
unless ref $other |
|
121
|
0 |
0 |
if $method eq 'DESTROY' |
|
127
|
1 |
0 |
ref $self ? : |
|
|
1 |
1 |
unless $self->SUPER::can(@_) |