| line |
true |
false |
branch |
|
53
|
1 |
141 |
unless $args{'sql'} |
|
56
|
3 |
138 |
if (exists $args{'service'}) { } |
|
|
137 |
1 |
elsif (exists $args{'struct'}) { } |
|
57
|
1 |
2 |
if $args{'struct'} |
|
58
|
2 |
0 |
unless $args{'service'} =~ m[
\A
http://
\d{1,3} (?: \. \d{1,3} ){3} # IP address for parse microservice
:
[1-9]\d+ # Port number for parse microservice
/
\z
]ux |
|
81
|
2 |
135 |
unless "HASH" eq ref $struct |
|
82
|
2 |
133 |
unless $struct->{'version'} |
|
83
|
1 |
132 |
unless $struct->{'stmts'} |
|
84
|
1 |
131 |
unless "ARRAY" eq ref $struct->{'stmts'} |
|
85
|
1 |
130 |
unless 0 < scalar @{$struct->{'stmts'};} |
|
112
|
130 |
0 |
if $self->{'struct'} |
|
116
|
0 |
0 |
unless ($res->{'success'}) |
|
117
|
0 |
0 |
if $res->{'content'} =~ /\ATimed out while waiting for socket/u |
|
121
|
0 |
0 |
if exists $struct->{'error'} |