| line |
true |
false |
branch |
|
10
|
0 |
18 |
unless defined $str |
|
23
|
2 |
24 |
unless defined $uri_string and $uri_string ne "" |
|
34
|
7 |
17 |
if ($uri_string =~ m[^(redis\+unix)://(?:(?::([^\@]*))?@)?(/[^?]+)(?:\?(.*))?$]u) |
|
36
|
1 |
6 |
if defined $2 and $2 ne "" |
|
45
|
4 |
3 |
if (defined $4) |
|
51
|
4 |
0 |
if exists $query{'db'} |
|
58
|
4 |
13 |
unless ($uri_string =~ m[^(rediss?)://(.+)$]u) |
|
66
|
3 |
10 |
if $scheme eq "rediss" |
|
70
|
7 |
6 |
if ($rest =~ /^([^\@]*)@(.+)$/u) { } |
|
78
|
7 |
6 |
if (defined $userinfo and $userinfo ne "") |
|
79
|
2 |
5 |
if ($userinfo =~ /^:(.*)$/u) { } |
|
|
5 |
0 |
elsif ($userinfo =~ /^([^:]*):(.*)$/u) { } |
|
93
|
13 |
0 |
if ($hostinfo =~ m[^([^:/]+)(?::(\d+))?(?:/(\d+))?$]u) { } |
|
|
0 |
0 |
elsif ($hostinfo =~ m[^([^:/]+)(?::(\d+))?/?$]u) { } |
|
95
|
4 |
9 |
if defined $2 |
|
96
|
4 |
9 |
if defined $3 |
|
100
|
0 |
0 |
if defined $2 |
|
106
|
0 |
13 |
unless $parsed{'host'} |
|
127
|
3 |
2 |
if ($self->is_unix) { } |
|
134
|
3 |
2 |
if $self->database |
|
135
|
1 |
4 |
if defined $self->username |
|
136
|
1 |
4 |
if defined $self->password |
|
137
|
1 |
4 |
if $self->tls |