| line |
true |
false |
branch |
|
17
|
0 |
0 |
if $v eq 'NULL' or $v eq 'nil' |
|
19
|
0 |
0 |
if ($v =~ /^["']/) |
|
22
|
0 |
0 |
unless $unescape{$1} |
|
32
|
2 |
0 |
unless my $h = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port) |
|
35
|
0 |
0 |
unless print $h "${user}:${pass}:${lang}:line\n" |
|
37
|
0 |
0 |
if /^\001/ |
|
80
|
0 |
0 |
$lang eq 'sql' ? : |
|
83
|
0 |
0 |
if ($lang eq 'sql') { } |
|
87
|
0 |
0 |
unless $statement =~ /;$/ |
|
93
|
0 |
0 |
unless print $h $statement, "\n" |
|
99
|
0 |
0 |
if (/^\[/) { } |
|
|
0 |
0 |
elsif (/^&(\d) (\d+) (\d+) (\d+)/) { } |
|
|
0 |
0 |
elsif (/^&(\d) (\d+)/) { } |
|
|
0 |
0 |
elsif (/^#\s+\b(.*)\b\s+# (name|type|length)$/) { } |
|
|
0 |
0 |
elsif (/^!/) { } |
|
|
0 |
0 |
elsif (/^\001\001/) { } |
|
|
0 |
0 |
elsif (/^\001\002/) { } |
|
100
|
0 |
0 |
unless /\]$/ |
|
107
|
0 |
0 |
if $$self{'querytype'} < 0 |
|
108
|
0 |
0 |
if $$self{'id'} < 0 |
|
109
|
0 |
0 |
if $$self{'tuplecount'} < 0 |
|
110
|
0 |
0 |
if $$self{'columncount'} < 0 |
|
113
|
0 |
0 |
if $$self{'querytype'} < 0 |
|
114
|
0 |
0 |
if $$self{'tuplecount'} < 0 |
|
129
|
0 |
0 |
if $$self{'columncount'} < 0 |
|
130
|
0 |
0 |
if $$self{'rs'}[0] |
|
131
|
0 |
0 |
if $lang ne 'sql' |
|
133
|
0 |
0 |
if @err |
|
191
|
0 |
0 |
if ++$$self{'i'} > $#{$$self{'rs'};} |