Branch Coverage

blib/lib/Net/SSH/Any/URI.pm
Criterion Covered Total %
branch 0 80 0.0


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