Branch Coverage

blib/lib/File/OM.pm

Criterion	Covered	Total	%
branch	149	358	41.6

line	true	false	branch
83	20	4	if ($format) { }
85	1	19	unless $format
89	0	4	unless $class =~ /^File::OM::\S/
108	19	9	if $$self{'stream_is_open'}
110	28	0	unless $$self{'outhandle'}
112	28	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
128	17	27	unless $name or $value
144	0	0	if $n > 0
151	0	0	if $$r_elems[$n + 2]
173	6	23	unless $$self{'record_is_open'}
176	29	0	unless $$self{'outhandle'}
178	29	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
185	28	1	unless defined $lineno
191	2	27	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge, $Text::Wrap::unexpand) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow', 0)
199	1	28	if ($type eq '#') { }
	28	0	elsif (defined $name) { }
219	5	23	$enc_val =~ /^\s*$/ ? :
231	29	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
244	0	0	unless $$self{'record_is_open'}
247	0	0	unless $$self{'outhandle'}
256	0	0	unless defined $lineno
262	0	0	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow')
270	0	0	if ($type eq '#') { }
	0	0	elsif (defined $name) { }
289	0	0	$enc_val =~ /^\s*$/ ? :
301	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
312	6	0	unless $$self{'stream_is_open'}
316	6	0	unless $$self{'outhandle'}
318	6	0	unless defined $recnum and $$self{'recnum'} = $recnum
323	6	0	unless defined $lineno
326	0	6	if $$self{'verbose'}
329	6	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
339	6	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
352	6	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
360	6	0	if $$self{'record_is_open'}
362	6	0	unless $$self{'outhandle'}
365	6	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
372	0	28	unless defined $s
409	1	27	unless defined $s
421	4	23	$value eq '' ? :
438	0	27	if ($anvl_mode eq 'ANVLS')
448	0	1	unless defined $s
462	0	0	unless $$self{'record_is_open'}
465	0	0	unless $$self{'outhandle'}
467	0	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
474	0	0	unless defined $lineno
480	0	0	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow')
488	0	0	if $$self{'elemnum'} > 1
491	0	0	if ($type eq '#') { }
	0	0	elsif (defined $name) { }
508	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
519	0	0	unless $$self{'stream_is_open'}
523	0	0	unless $$self{'outhandle'}
525	0	0	unless defined $recnum and $$self{'recnum'} = $recnum
530	0	0	unless defined $lineno
533	0	0	if ($$self{'recnum'} == 1)
543	0	0	unless $r_elem_order
552	0	0	if $$self{'verbose'}
555	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
565	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
577	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
585	0	0	if $$self{'record_is_open'}
587	0	0	unless $$self{'outhandle'}
590	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
598	0	0	unless defined $s
611	0	0	unless defined $s
625	0	0	unless defined $s
645	3	8	unless $$self{'record_is_open'}
648	11	0	unless $$self{'outhandle'}
650	10	1	unless defined $elemnum and $$self{'elemnum'} = $elemnum
657	10	1	unless defined $lineno
661	0	11	if $type eq '#'
662	0	11	if $type eq '#'
663	11	0	if (defined $name)
666	8	3	if $$self{'elemnum'} > 1 or $$self{'verbose'}
673	11	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
684	3	1	unless $$self{'stream_is_open'}
687	4	0	unless $$self{'outhandle'}
690	4	0	unless defined $recnum and $$self{'recnum'} = $recnum
695	4	0	unless defined $lineno
698	1	3	if $$self{'recnum'} > 1
700	0	4	if $$self{'verbose'}
704	4	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
715	4	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
729	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
737	3	0	if $$self{'record_is_open'}
739	3	0	unless $$self{'outhandle'}
744	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
751	0	24	unless defined $s
780	3	2	unless $$self{'record_is_open'}
783	5	0	unless $$self{'outhandle'}
785	5	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
792	4	1	unless defined $lineno
798	0	5	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow')
805	1	4	if ($type eq '#') { }
	4	0	elsif (defined $value and defined $name) { }
826	5	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
837	3	0	unless $$self{'stream_is_open'}
840	3	0	unless $$self{'outhandle'}
843	3	0	unless defined $recnum and $$self{'recnum'} = $recnum
848	2	1	unless defined $lineno
850	0	3	if $$self{'verbose'}
853	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
863	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
875	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
885	3	0	if $$self{'record_is_open'}
887	3	0	unless $$self{'outhandle'}
890	3	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
920	0	0	unless $$self{'record_is_open'}
923	0	0	unless $$self{'outhandle'}
925	0	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
932	0	0	unless defined $lineno
938	0	0	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow')
946	0	0	if $$self{'elemnum'} > 1
949	0	0	if ($type eq '#') { }
	0	0	elsif (defined $name) { }
966	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
977	0	0	unless $$self{'stream_is_open'}
981	0	0	unless $$self{'outhandle'}
983	0	0	unless defined $recnum and $$self{'recnum'} = $recnum
988	0	0	unless defined $lineno
991	0	0	if ($$self{'recnum'} == 1)
1001	0	0	unless $r_elem_order
1010	0	0	if $$self{'verbose'}
1013	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1023	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1035	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1043	0	0	if $$self{'record_is_open'}
1045	0	0	unless $$self{'outhandle'}
1048	0	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1056	0	0	unless defined $s
1073	0	0	unless defined $s
1091	0	0	unless defined $s
1111	1	3	unless $$self{'record_is_open'}
1114	4	0	unless $$self{'outhandle'}
1116	4	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
1123	4	0	unless defined $lineno
1127	0	4	if ($type eq '#') { }
	4	0	elsif (defined $name) { }
1141	2	2	if $$self{'elemnum'} > 1
1150	4	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1161	2	0	unless $$self{'stream_is_open'}
1164	2	0	unless $$self{'outhandle'}
1167	1	1	unless defined $recnum and $$self{'recnum'} = $recnum
1172	2	0	unless defined $lineno
1174	0	2	if $$self{'verbose'}
1176	2	0	unless defined $$self{'subject'}
1181	2	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1191	2	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1206	2	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1214	2	0	if $$self{'record_is_open'}
1216	2	0	unless $$self{'outhandle'}
1219	2	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1226	0	4	unless defined $s
1234	0	5	unless defined $s
1241	0	0	unless defined $s
1255	5	5	unless $$self{'record_is_open'}
1258	10	0	unless $$self{'outhandle'}
1260	10	0	unless defined $elemnum and $$self{'elemnum'} = $elemnum
1267	8	2	unless defined $lineno
1273	0	10	unless $$self{'wrap'} and ($wrapper, $Text::Wrap::columns, $Text::Wrap::huge) = (\&Text::Wrap::wrap, $$self{'wrap'}, 'overflow')
1281	1	9	if ($type eq '#') { }
	9	0	elsif (defined $name) { }
1287	0	1	$enc_com =~ /^\s*$/ ? :
1308	1	8	$enc_val =~ /^\s*$/ ? :
1323	10	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1334	5	1	unless $$self{'stream_is_open'}
1337	6	0	unless $$self{'outhandle'}
1340	6	0	unless defined $recnum and $$self{'recnum'} = $recnum
1345	5	1	unless defined $lineno
1350	2	4	if $$self{'verbose'}
1354	6	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1366	5	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1380	5	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1388	5	0	if $$self{'record_is_open'}
1390	5	0	unless $$self{'outhandle'}
1395	5	0	unless $$self{'outhandle'} and return print({$$self{'outhandle'};} $s)
1403	0	20	unless defined $_
1426	0	2	unless defined $s