| line |
true |
false |
branch |
|
23
|
0 |
0 |
if defined $str |
|
29
|
0 |
0 |
if defined $str |
|
37
|
0 |
0 |
if defined $str |
|
43
|
0 |
0 |
@_ & 1 ? : |
|
50
|
0 |
0 |
if (defined(my $opt = delete $opt{$_})) |
|
55
|
0 |
0 |
if (defined $uri) { } |
|
56
|
0 |
0 |
if (my($scheme, $user, $password, $c_params, $ipv6, $host, $port, $path) = $uri =~ m(^
\s* # trim space
(?:([\w+-]+)://)?+ # scheme
(?:
(?:([^\@:;]+))?+ # username
(?::([^\@;]*))?+ # : password
(?:;([^\@]*))?+ # c-params
\@ # @
)?+
(?> # host
( # IPv6...
\[$IPv6_re\] # [IPv6]
| # or
$IPv6_re # IPv6
)
| # or
([^\[\]\@:/]+) # hostname / ipv4
)
(?::([\w\%]+))?+ # port
(/.*)?+ # path
\s* # trim space
$)ox) { } |
|
81
|
0 |
0 |
if (defined $ipv6) { } |
|
89
|
0 |
0 |
if defined $password |
|
91
|
0 |
0 |
if (defined $c_params) |
|
98
|
0 |
0 |
if $c_params =~ /\G./cg |
|
106
|
0 |
0 |
unless defined $opt{'host'} |
|
111
|
0 |
0 |
if defined $v |
|
114
|
0 |
0 |
if (defined(my $password = delete $opt{'password'})) |
|
120
|
0 |
0 |
if defined $v |
|
130
|
0 |
0 |
if (@_) |
|
131
|
0 |
0 |
if (defined(my $v = shift())) { } |
|
135
|
0 |
0 |
if $slot eq 'host' |
|
148
|
0 |
0 |
if @_ |
|
150
|
0 |
0 |
$h =~ /^$IPv6_re$/o ? : |
|
155
|
0 |
0 |
unless my $c_params = $self->{'c_params'} |
|
166
|
0 |
0 |
unless my $c_params = $self->{'c_params'} |
|
167
|
0 |
0 |
unless my $vs = $c_params->{$key} |
|
174
|
0 |
0 |
unless my $c_params = $self->{'c_params'} |
|
175
|
0 |
0 |
unless my $vs = $c_params->{$key} |
|
176
|
0 |
0 |
unless wantarray |
|
199
|
0 |
0 |
$a ? : |
|
201
|
0 |
0 |
if (@r > 1 and not wantarray) |
|
204
|
0 |
0 |
wantarray ? : |
|
211
|
0 |
0 |
if ($is_slot{$key}) { } |
|
212
|
0 |
0 |
if @_ > 1 |
|
225
|
0 |
0 |
unless defined $self->{$key} or defined $self->{'c_params'}{$key} |
|
238
|
0 |
0 |
$ix++ ? : |
|
|
0 |
0 |
$safe && $unsafe{$k} ? : |
|
247
|
0 |
0 |
if defined $self->{'user'} |
|
249
|
0 |
0 |
if @parts |
|
250
|
0 |
0 |
if defined $self->{'scheme'} |
|
252
|
0 |
0 |
$h =~ /^$IPv6_re$/o ? : |
|
253
|
0 |
0 |
if defined $self->{'port'} |
|
254
|
0 |
0 |
if defined $self->{'path'} |