| line |
true |
false |
branch |
|
70
|
0 |
0 |
if ($name =~ /ERROR/) { } |
|
83
|
0 |
0 |
unless defined $expect{$response} |
|
99
|
0 |
0 |
unless defined $host |
|
101
|
0 |
0 |
unless defined $port |
|
104
|
0 |
0 |
unless defined $user and defined $passwd |
|
113
|
0 |
0 |
unless ($conn = "IO::Socket"->new("Domain", 2, "Type", 1, "Proto", "tcp", "PeerHost", $host, "PeerPort", $port)) |
|
157
|
0 |
0 |
unless defined $features{$feature} |
|
166
|
0 |
0 |
unless @_ == 0 |
|
200
|
0 |
0 |
unless defined $types{$type} |
|
282
|
0 |
0 |
if (wantarray) { } |
|
286
|
0 |
0 |
unless @list == 1 |
|
299
|
0 |
0 |
if (wantarray) { } |
|
303
|
0 |
0 |
unless @list == 1 |
|
316
|
0 |
0 |
if (wantarray) { } |
|
320
|
0 |
0 |
unless @list == 1 |
|
333
|
0 |
0 |
if (wantarray) { } |
|
337
|
0 |
0 |
unless @list == 1 |
|
350
|
0 |
0 |
if (wantarray) { } |
|
354
|
0 |
0 |
unless @list == 1 |
|
367
|
0 |
0 |
if (wantarray) { } |
|
371
|
0 |
0 |
unless @list == 1 |
|
384
|
0 |
0 |
if (wantarray) { } |
|
388
|
0 |
0 |
unless @list == 1 |
|
401
|
0 |
0 |
if (wantarray) { } |
|
405
|
0 |
0 |
unless @list == 1 |
|
418
|
0 |
0 |
if (wantarray) { } |
|
422
|
0 |
0 |
unless @list == 1 |
|
435
|
0 |
0 |
if (wantarray) { } |
|
439
|
0 |
0 |
unless @list == 1 |
|
445
|
0 |
0 |
unless @_ == 2 and wantarray |
|
469
|
0 |
0 |
unless @_ == 2 and wantarray |
|
483
|
0 |
0 |
unless @_ == 2 and wantarray |
|
497
|
0 |
0 |
unless @_ == 2 and wantarray |
|
518
|
0 |
0 |
unless @_ == 3 and $mother =~ /^[A-Z0-9_-]+(:[A-Z_][A-Za-z0-9_-]*)?$/ and $child =~ /^[A-Z_][A-Za-z0-9_-]*$/ |
|
521
|
0 |
0 |
unless $query =~ /;\s*$/ |
|
532
|
0 |
0 |
unless $response == $CWB::CQI::STATUS_OK or $group == $CWB::CQI::ERROR or $group == $CWB::CQI::CQP_ERROR |
|
558
|
0 |
0 |
if ($field =~ /^(MATCH(END)?|TARGET|KEYWORD)$/) { } |
|
568
|
0 |
0 |
unless @_ == 2 and defined(my $field_key = cqi_get_field_key($field)) |
|
580
|
0 |
0 |
unless @_ == 4 and defined(my $field_key = cqi_get_field_key($field)) |
|
611
|
0 |
0 |
if (defined $key2) { } |
|
619
|
0 |
0 |
unless @_ == 0 and defined $field1 and defined $field2 and defined $att1 and defined $att2 and $att1 =~ /^[a-z]+$/ and $att2 =~ /^[a-z]+$/ and $cutoff >= 0 |
|
622
|
0 |
0 |
if ($field2 ne '') { } |
|
732
|
0 |
0 |
unless $conn->print(pack("C", shift())) |
|
737
|
0 |
0 |
unless $conn->print(pack("n", shift())) |
|
744
|
0 |
0 |
unless $conn->print(pack("N", $number)) |
|
750
|
0 |
0 |
unless $conn->print(pack("n", length $str), $str) |
|
775
|
0 |
0 |
unless $conn->flush |
|
781
|
0 |
0 |
unless defined $msg |
|
789
|
0 |
0 |
unless defined $bytes_read and $bytes_read == 2 |
|
799
|
0 |
0 |
unless defined $bytes_read and $bytes_read == 4 |
|
810
|
0 |
0 |
unless defined $bytes_read and $bytes_read == $len |