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'} |