| line |
true |
false |
branch |
|
23
|
1 |
6 |
if $^W and not defined $str |
|
25
|
3 |
4 |
if (defined $str and $str =~ s/^(.*)\n//) { } |
|
34
|
5 |
2 |
if (defined $request_line) |
|
37
|
4 |
1 |
if defined $uri |
|
38
|
3 |
2 |
if $protocol |
|
64
|
52 |
45 |
if (@_) |
|
66
|
2 |
50 |
if (not defined $uri) { } |
|
|
8 |
42 |
elsif (ref $uri) { } |
|
70
|
2 |
6 |
if ref $uri eq "HASH" or ref $uri eq "ARRAY" |
|
72
|
2 |
4 |
unless $uri->can("scheme") and $uri->can("canonical") |
|
75
|
0 |
4 |
unless ($HTTP::URI_CLASS eq "URI") |
|
78
|
0 |
0 |
if $@ and not $@ =~ /Missing base argument/ |
|
98
|
9 |
4 |
if (defined(my $canon = $self->{'_uri_canonical'})) |
|
101
|
9 |
0 |
if $canon eq $uri |
|
119
|
14 |
1 |
unless defined $eol |
|
123
|
14 |
1 |
defined $uri ? : |
|
126
|
1 |
14 |
if $proto |
|
135
|
1 |
2 |
if (my $prot = $self->protocol) |