Branch Coverage

blib/lib/HyperWave/CSP.pm

Criterion	Covered	Total	%
branch	8	256	3.1

line	true	false	branch
242	0	1	if $DEBUG > 1
248	0	1	unless (defined $$self{'language'})
249	0	0	if $DEBUG
260	0	0	unless ($$self{'socket'} = &_open_hw_connection($$self{'host'}, $$self{'port'}))
261	0	0	if $DEBUG
270	0	0	unless ($message = &_initialize_hw_connection($$self{'socket'}))
271	0	0	if $DEBUG
278	0	0	if ($message->msgid < $Protocol_Version)
279	0	0	if $DEBUG
292	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
299	0	0	unless ($message)
308	0	0	if $DEBUG > 2
346	0	0	if $DEBUG > 1
348	0	0	if (not $command) { }
357	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
363	0	0	if ($response_required) { }
365	0	0	unless ($message)
433	0	0	if $DEBUG > 1
438	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
445	0	0	unless ($message)
453	0	0	if ($$self{'server_error'})
458	0	0	if ($count = 0) { }
	0	0	elsif ($count > 1) { }
486	0	0	if $DEBUG > 1
490	0	0	unless ($objrecord = $self->get_attributes($objnum))
517	0	0	if $DEBUG > 1
522	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
529	0	0	unless ($message)
536	0	0	if ($$self{'server_error'} != 0)
558	0	0	if $DEBUG > 1
561	0	0	unless ($attributes)
589	0	0	if $DEBUG > 1
593	0	0	if $DEBUG > 2
598	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
605	0	0	unless ($message)
612	0	0	if ($$self{'server_error'} != 0)
634	0	0	if $DEBUG > 1
645	0	0	unless ($anchors)
661	0	0	if $DEBUG > 2
664	0	0	if ($attributes{'LinkType'} eq 'intag') { }
	0	0	elsif ($attributes{'Hint'}) { }
	0	0	elsif ($attributes{'Dest'}) { }
	0	0	elsif ($attributes{'Dest'} eq 'Anchor') { }
669	0	0	if $DEBUG > 2
677	0	0	if $DEBUG > 2
685	0	0	if $DEBUG > 2
693	0	0	if $DEBUG > 2
700	0	0	if $DEBUG
733	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
740	0	0	unless ($message)
747	0	0	if ($$self{'server_error'} != 0)
775	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
782	0	0	unless ($message)
789	0	0	if ($$self{'server_error'} != 0)
817	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
824	0	0	unless ($message)
831	0	0	if ($$self{'server_error'} != 0)
857	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
864	0	0	unless ($message)
871	0	0	if ($$self{'server_error'} != 0)
898	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
905	0	0	unless ($message)
912	0	0	if ($$self{'server_error'} != 0)
918	0	0	unless ($kidcount)
946	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
953	0	0	unless ($message)
960	0	0	if ($$self{'server_error'} != 0)
966	0	0	unless ($parentcount)
992	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
999	0	0	unless ($message)
1006	0	0	if ($$self{'server_error'} != 0)
1012	0	0	unless ($acount)
1018	0	0	if $DEBUG > 2
1047	0	0	unless (&_send_hw_msg($$self{'socket'}, $message))
1049	0	0	if $DEBUG
1054	0	0	unless ($message)
1056	0	0	if $DEBUG
1063	0	0	if ($$self{'server_error'} != 0)
1065	0	0	if $DEBUG
1096	0	0	if $DEBUG > 1
1115	0	0	if $DEBUG > 1
1134	0	0	if $DEBUG > 1
1155	0	0	if $DEBUG > 1
1186	0	0	if (not $$self{'server_error'}) { }
	0	0	elsif ($$self{'server_error'} >= 1 and $$self{'server_error'} <= 37) { }
	0	0	elsif ($$self{'server_error'} >= 513 and $$self{'server_error'} <= 516) { }
	0	0	elsif ($$self{'server_error'} >= 1024 and $$self{'server_error'} <= 1064) { }
1241	0	1	if $DEBUG > 1
1243	0	1	if $DEBUG > 2
1246	0	1	if ($server_port =~ /\D/)
1248	0	0	if $DEBUG > 2
1252	0	1	unless ($iaddr = gethostbyname $server_host)
1260	0	1	unless socket $socket, 2, 1, $proto
1262	1	0	unless connect $socket, $paddr
1281	0	0	if $DEBUG > 2
1283	0	0	unless (&_hw_write($socket, 'F'))
1288	0	0	unless ($buf = &_hw_read($socket, 1))
1292	0	0	if $DEBUG > 2
1295	0	0	unless (&_send_ready($socket))
1300	0	0	unless ($message = &_receive_ready($socket))
1306	0	0	if ($1 eq 'ServerString') { }
	0	0	elsif ($1 eq 'Reorganization') { }
1312	0	0	if $DEBUG
1319	0	0	if $DEBUG > 2
1334	0	0	if $DEBUG > 2
1340	0	0	unless (defined sysread($socket, $buff1, $length_to_read))
1349	0	0	unless (defined sysread($socket, $buff1, $length_to_read))
1354	0	0	if $DEBUG > 2
1358	0	0	unless ($tries_remaining)
1359	0	0	if $DEBUG
1363	0	0	if $DEBUG > 2
1376	0	0	if $DEBUG > 2
1378	0	0	if $DEBUG > 2
1383	0	0	unless (defined syswrite($socket, $buffer, length $buffer))
1397	0	0	if $DEBUG > 1
1404	0	0	unless ($length = &_hw_read($socket, 11))
1408	0	0	unless ($length =~ s/\s*(\d+)\s/$1/)
1414	0	0	if $DEBUG > 2
1417	0	0	unless ($buffer = &_hw_read($socket, $message->length - 11))
1426	0	0	if $DEBUG > 2
1438	0	0	if $DEBUG > 1
1441	0	0	unless ($message)
1446	0	0	unless ($message->msgid)
1451	0	0	if ($message->msgtype != $MESSAGE{'READY'})
1467	0	0	if $DEBUG > 1
1469	0	0	unless (&_hw_write($socket, $message->as_string))
1485	0	0	if $DEBUG > 1
1490	0	0	unless (&_send_hw_msg($socket, $ready_msg))