Branch Coverage

blib/lib/HP200LX/DB.pm

Criterion	Covered	Total	%
branch	69	294	23.4

line	true	false	branch
80	0	0	unless $REC_TYPE[$num]
236	0	1	if ($APT eq 'ADB') { }
	0	1	elsif ($APT eq 'NDB') { }
	0	1	elsif ($APT eq 'WDB') { }
250	0	1	if ($code == 50) { }
	0	1	elsif ($code eq 78) { }
	0	1	elsif ($code eq 87) { }
263	0	1	if ($fnm =~ /\.adb$/i) { }
	0	1	elsif ($fnm =~ /\.ndb$/i) { }
	0	1	elsif ($fnm =~ /\.wdb$/i) { }
285	0	1	unless (open FI, $fnm)
297	0	1	unless $lng == 25
340	1	0	if ($lookup_table_offset > 0)
348	0	1	unless $i == $lng
352	0	1	unless $i == $lng
388	0	1	unless $i == 64
408	23	0	if ($lookup_table_offset > 0)
410	1	22	if $i > $#ltbl
417	0	22	if ($siz < 0 or $off < 0)
426	0	22	unless defined($xrec = &get_recheader(*FI))
433	0	22	if ($type < 0 or $type >= 32)
443	22	0	if (defined $lut)
471	0	21	if ($type > 1 and $$obj{'Meta'} eq 'Encrypted' and not $$obj{'dont_decrypt'})
483	1	21	if ($type == 9)
492	0	20	if ($type > 1 and $$obj{'Meta'} eq 'Encrypted' and $$obj{'dont_decrypt'})
500	1	20	if ($type == 0) { }
	0	20	elsif ($type == 1) { }
	1	19	elsif ($type == 4) { }
	13	6	elsif ($type == 6) { }
	1	5	elsif ($type == 7) { }
	1	4	elsif ($type == 10) { }
	0	4	elsif ($type == 13) { }
511	0	0	if ($$obj{'dont_decrypt'})
532	9	4	if $rec_size > $$obj{'rec_size'}
552	0	21	unless ($REC_TYPE[$type])
557	0	0	if ($type == 14 and $APT eq 'ADB') { }
578	0	0	if $$self{'has_unknown_records'}
616	0	0	if (defined $rec) { }
624	0	0	unless (defined $$rec{'type'})
629	0	0	unless (defined $$rec{'status'})
658	0	0	unless open FO, ">$fnmo"
685	0	0	unless defined $$rec{'data'}
740	0	0	if $prt_hdr
745	0	0	if $db->has_errors
746	0	0	if $$db{'Meta'} eq 'Encrypted'
811	0	0	if $#$Cdef < 0
822	0	0	if ($f eq 'Parent' or $f eq 'Style') { }
871	0	0	unless (defined($T = $$self{'Types'}))
877	0	0	if (defined $Ty) { }
884	0	0	if $c == -1
887	0	0	if ($Format eq 'auto')
889	0	0	if ($Ty == 5 or $Ty == 9 or $Ty == 11) { }
906	0	0	unless defined $$Dv{$Dk}
911	0	0	if ($format eq 'HEX') { }
923	0	0	if ($cv >= 0 and $cv <= 31 or $cv >= 60 and $cv <= 62 or $cv >= 127 and $cv <= 255) { }
934	0	0	if ($llng > 72)
936	0	0	if ($llng > 0)
958	0	0	if (//) { }
	0	0	elsif (m[]) { }
	0	0	elsif (//) { }
	0	0	elsif (m[]) { }
	0	0	elsif (/<(type|idx|length|status|filters|flags)>(.*)/) { }
	0	0	elsif ($status eq 'data') { }
	0	0	elsif (/^#/ or /^[ \t]*$/) { }
967	0	0	if ($status ne 'record' and $status ne 'data')
994	0	0	if ($format eq 'QP') { }
	0	0	elsif ($format eq 'HEX') { }
1035	0	1	if $idx > $#$D
1040	1	0	unless (defined($rv = $$Dx{'obj'}))
1066	0	0	if $idx > $#$D
1079	0	0	if $idx > $#$N
1100	0	0	if ($idx > $#$D) { }
1173	3	0	if $idx >= 0
1183	0	1	$year == $no_year && $mon == $no_mon && $day == $no_day ? :
1195	0	0	if ($val =~ /(\d+)-(\d+)-(\d+)/)
1199	0	0	if $year < 1900 or $year > 2155 or $mon < 1 or $mon > 12 or $day < 1 or $day > 31
1218	0	1	if $val == $no_time or $val == $no_val
1241	0	1	if ($APT eq 'ADB')
1249	0	0	if ($val & 16) { }
	0	0	elsif ($val & 32) { }
	0	0	elsif ($val & 128) { }
1267	0	13	if ($type == 0) { }
	2	11	elsif ($type == 1) { }
	0	11	elsif ($type == 2 and $APT eq 'ADB' and $off eq 27) { }
	3	8	elsif ($type == 2 or $type == 3 or $type == 4 or $type == 6) { }
	1	7	elsif ($type == 7 or $type == 24 and $APT eq 'ADB') { }
	1	6	elsif ($type == 8 or $type == 19 and $APT eq 'ADB') { }
	2	4	elsif ($type == 9) { }
	1	3	elsif ($type == 10) { }
	3	0	elsif ($type == 11 or $type == 12 or $type == 14 or $type == 15 or $type == 18 and $APT eq 'ADB') { }
	0	0	elsif ($type == 16 and $APT == 'WDB') { }
	0	0	elsif ($APT eq 'ADB' and $type == 23 || $type == 20) { }
	0	0	elsif ($APT eq 'ADB' and $type == 22) { }
1270	0	0	$val ? :
1275	1	1	$val ? :
1307	1	1	$cnt == $val ? :
1313	1	0	unless ($note_number eq $no_note)
1317	1	0	defined $nr ? :
1339	0	0	if $type == 23 and $APT2 eq 'To-Do'
1340	0	0	if $type == 20 and $APT2 ne 'To-Do'
1347	0	0	unless $APT2 eq 'To-Do'
1394	0	0	exists $$data{$name} ? :
1398	0	0	if $APT eq 'ADB'
1402	0	0	if ($type == 0) { }
	0	0	elsif ($type == 1) { }
	0	0	elsif ($type == 2 or $type == 3 or $type == 4 or $type == 6) { }
	0	0	elsif ($type == 7) { }
	0	0	elsif ($type == 8) { }
	0	0	elsif ($type == 9) { }
	0	0	elsif ($type == 10) { }
	0	0	elsif ($type == 11 or $type == 12 or $type == 14 or $type == 15) { }
1404	0	0	$val ? :
1408	0	0	$val ? :
1416	0	0	if ($nil_addr eq '')
1424	0	0	if ($val) { }
1438	0	0	if $APT eq 'ADB' and $APT2 eq 'To-Do'
1442	0	0	if $val =~ /(\d+)[:\.](\d+)/
1444	0	0	if not $ex or $t < 0 or $t > $no_time
1457	0	0	$val ? :
1458	0	0	if $v = $RB{$off}
1459	0	0	if $checked
1475	0	0	if defined $$data{$xn}
1477	0	0	if ($note_nr == $no_note and $val ne '') { }
	0	0	elsif ($note_nr != $no_note and $val eq '') { }
	0	0	elsif ($note_nr != $no_note and $val ne '') { }
1512	0	0	if ($ok)
1516	0	0	if (length $b != $rec_size)
1524	0	0	unless $y = $b[$x]
1546	0	24	unless read F, $b, 6
1706	0	0	if (defined $$AD{'View_Table'}) { }
	0	0	elsif (defined $$AD{'Header'}) { }
1721	0	0	if $v eq $no_val
1784	0	0	unless defined $XHDR{$fld}
1792	0	0	if ($level > 0)
1798	0	0	if ($level > 1)
1820	0	0	if (defined $idx)
1842	0	0	unless (defined $el)
1866	0	0	unless ($ok and 0)
1892	0	0	if ($c ne '') { }
1896	0	0	if $v < 32 or $v >= 127
1922	0	0	if ($siz != 17)
1943	0	0	if $p > 0
1983	0	0	if ($ii > 126)
1996	0	0	if ++$i_17 >= 17
1997	0	0	if ++$i_127 >= 127
2020	0	0	unless open FI, $ptx_fnm
2042	0	0	unless open FO, ">$key_fnm"