| line |
true |
false |
branch |
|
69
|
0 |
0 |
if ($name =~ /ERROR/) { } |
|
82
|
0 |
0 |
unless defined $expect{$response} |
|
98
|
0 |
0 |
unless defined $host |
|
100
|
0 |
0 |
unless defined $port |
|
103
|
0 |
0 |
unless defined $user and defined $passwd |
|
112
|
0 |
0 |
unless ($conn = "IO::Socket"->new("Domain", 2, "Type", 1, "Proto", "tcp", "PeerHost", $host, "PeerPort", $port)) |
|
156
|
0 |
0 |
unless defined $features{$feature} |
|
165
|
0 |
0 |
unless @_ == 0 |
|
199
|
0 |
0 |
unless defined $types{$type} |
|
281
|
0 |
0 |
if (wantarray) { } |
|
285
|
0 |
0 |
unless @list == 1 |
|
298
|
0 |
0 |
if (wantarray) { } |
|
302
|
0 |
0 |
unless @list == 1 |
|
315
|
0 |
0 |
if (wantarray) { } |
|
319
|
0 |
0 |
unless @list == 1 |
|
332
|
0 |
0 |
if (wantarray) { } |
|
336
|
0 |
0 |
unless @list == 1 |
|
349
|
0 |
0 |
if (wantarray) { } |
|
353
|
0 |
0 |
unless @list == 1 |
|
366
|
0 |
0 |
if (wantarray) { } |
|
370
|
0 |
0 |
unless @list == 1 |
|
383
|
0 |
0 |
if (wantarray) { } |
|
387
|
0 |
0 |
unless @list == 1 |
|
400
|
0 |
0 |
if (wantarray) { } |
|
404
|
0 |
0 |
unless @list == 1 |
|
417
|
0 |
0 |
if (wantarray) { } |
|
421
|
0 |
0 |
unless @list == 1 |
|
434
|
0 |
0 |
if (wantarray) { } |
|
438
|
0 |
0 |
unless @list == 1 |
|
444
|
0 |
0 |
unless @_ == 2 and wantarray |
|
468
|
0 |
0 |
unless @_ == 2 and wantarray |
|
482
|
0 |
0 |
unless @_ == 2 and wantarray |
|
496
|
0 |
0 |
unless @_ == 2 and wantarray |
|
517
|
0 |
0 |
unless @_ == 3 and $mother =~ /^[A-Z0-9_-]+(:[A-Z_][A-Za-z0-9_-]*)?$/ and $child =~ /^[A-Z_][A-Za-z0-9_-]*$/ |
|
520
|
0 |
0 |
unless $query =~ /;\s*$/ |
|
531
|
0 |
0 |
unless $response == $CWB::CQI::STATUS_OK or $group == $CWB::CQI::ERROR or $group == $CWB::CQI::CQP_ERROR |
|
557
|
0 |
0 |
if ($field =~ /^(MATCH(END)?|TARGET|KEYWORD)$/) { } |
|
567
|
0 |
0 |
unless @_ == 2 and defined(my $field_key = cqi_get_field_key($field)) |
|
579
|
0 |
0 |
unless @_ == 4 and defined(my $field_key = cqi_get_field_key($field)) |
|
610
|
0 |
0 |
if (defined $key2) { } |
|
618
|
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 |
|
621
|
0 |
0 |
if ($field2 ne '') { } |
|
731
|
0 |
0 |
unless $conn->print(pack("C", shift())) |
|
736
|
0 |
0 |
unless $conn->print(pack("n", shift())) |
|
743
|
0 |
0 |
unless $conn->print(pack("N", $number)) |
|
749
|
0 |
0 |
unless $conn->print(pack("n", length $str), $str) |
|
774
|
0 |
0 |
unless $conn->flush |
|
780
|
0 |
0 |
unless defined $msg |
|
788
|
0 |
0 |
unless defined $bytes_read and $bytes_read == 2 |
|
798
|
0 |
0 |
unless defined $bytes_read and $bytes_read == 4 |
|
809
|
0 |
0 |
unless defined $bytes_read and $bytes_read == $len |