| line |
true |
false |
branch |
|
42
|
1 |
183 |
if @extra |
|
43
|
166 |
17 |
if ref $config ne "HASH" |
|
54
|
119 |
81 |
if ($uri) { } |
|
55
|
3 |
116 |
if $uri =~ /^[0-9a-f:]*::|^(?:[0-9a-f]+:){6}/iu |
|
56
|
7 |
112 |
if not $uri =~ m[:|/]u or $uri =~ /^\[.+\]$/u |
|
57
|
2 |
117 |
if $uri =~ m[^//]u |
|
60
|
5 |
114 |
unless $uri->scheme |
|
62
|
4 |
110 |
unless $uri->scheme =~ /^(?:https?|bolt|neo4j)$/iu |
|
65
|
10 |
100 |
if (my $userinfo = $uri->userinfo(undef)) |
|
71
|
60 |
50 |
unless $uri->host |
|
72
|
6 |
104 |
if $uri->path_query eq "/" |
|
78
|
172 |
19 |
unless $uri->_port |
|
87
|
1 |
39 |
if $self->{'config'}{'concurrent_tx'} |
|
90
|
2 |
35 |
$self->{'config'}{'encrypted'} ? : |
|
|
2 |
37 |
exists $INC{'Neo4j/Bolt.pm'} ? : |
|
91
|
36 |
3 |
if not $uri->_port |
|
98
|
2 |
34 |
if $self->{'server_info'} |
|
113
|
186 |
999 |
if @options == 1 and ref $options[0] eq "HASH" |
|
114
|
2 |
1183 |
unless @options |
|
116
|
909 |
274 |
if (@options < 2) |
|
119
|
4 |
905 |
if &none(sub {
$_ eq $key;
}
, keys %OPTIONS) |
|
123
|
1 |
273 |
if $self->{'server_info'} |
|
130
|
200 |
88 |
if $OPTIONS{$key} eq "uri" |
|
139
|
2 |
185 |
if @options == 1 and ref $options[0] eq "HASH" |
|
142
|
40 |
146 |
if $self->{'config'}{'uri'}->scheme eq "neo4j" |
|
152
|
2 |
458 |
if @options & 1 |
|
155
|
1 |
457 |
if $options{'tls'} |
|
156
|
1 |
457 |
if $options{'tls_ca'} |
|
158
|
20 |
438 |
if ($options{'cypher_params'}) |
|
160
|
1 |
19 |
unless $options{'cypher_params'} =~ /^(?:\x02|v2)$/u |
|
164
|
9 |
448 |
if @unsupported |
|
174
|
1 |
84 |
if @extra |
|
175
|
1 |
83 |
if $self->{'server_info'} |