Branch Coverage

blib/lib/CWB/CQI/Client.pm

Criterion	Covered	Total	%
branch	0	104	0.0

line	true	false	branch
71	0	0	if ($name =~ /ERROR/) { }
84	0	0	unless defined $expect{$response}
100	0	0	unless defined $host
102	0	0	unless defined $port
105	0	0	unless defined $user and defined $passwd
114	0	0	unless (socket $conn, 2, 1, $protocol)
116	0	0	unless (connect $conn, $sockaddr)
159	0	0	unless defined $features{$feature}
168	0	0	unless @_ == 0
202	0	0	unless defined $types{$type}
284	0	0	if (wantarray) { }
288	0	0	unless @list == 1
301	0	0	if (wantarray) { }
305	0	0	unless @list == 1
318	0	0	if (wantarray) { }
322	0	0	unless @list == 1
335	0	0	if (wantarray) { }
339	0	0	unless @list == 1
352	0	0	if (wantarray) { }
356	0	0	unless @list == 1
369	0	0	if (wantarray) { }
373	0	0	unless @list == 1
386	0	0	if (wantarray) { }
390	0	0	unless @list == 1
403	0	0	if (wantarray) { }
407	0	0	unless @list == 1
420	0	0	if (wantarray) { }
424	0	0	unless @list == 1
437	0	0	if (wantarray) { }
441	0	0	unless @list == 1
447	0	0	unless @_ == 2 and wantarray
471	0	0	unless @_ == 2 and wantarray
485	0	0	unless @_ == 2 and wantarray
499	0	0	unless @_ == 2 and wantarray
520	0	0	unless @_ == 3 and $mother =~ /^[A-Z0-9_-]+(:[A-Z_][A-Za-z0-9_-]*)?$/ and $child =~ /^[A-Z_][A-Za-z0-9_-]*$/
523	0	0	unless $query =~ /;\s*$/
534	0	0	unless $response == $CWB::CQI::STATUS_OK or $group == $CWB::CQI::ERROR or $group == $CWB::CQI::CQP_ERROR
560	0	0	if ($field =~ /^(MATCH(END)?|TARGET|KEYWORD)$/) { }
570	0	0	unless @_ == 2 and defined(my $field_key = cqi_get_field_key($field))
582	0	0	unless @_ == 4 and defined(my $field_key = cqi_get_field_key($field))
613	0	0	if (defined $key2) { }
621	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
624	0	0	if ($field2 ne '') { }
734	0	0	unless $conn->print(pack("C", shift()))
739	0	0	unless $conn->print(pack("n", shift()))
746	0	0	unless $conn->print(pack("N", $number))
752	0	0	unless $conn->print(pack("n", length $str), $str)
777	0	0	unless $conn->flush
783	0	0	unless defined recv($conn, $msg, 1, 256)
790	0	0	unless defined recv($conn, $msg, 2, 256)
799	0	0	unless defined recv($conn, $msg, 4, 256)
809	0	0	unless defined recv($conn, $msg, $len, 256)