Branch Coverage

blib/lib/HTML/Bare.pm

Criterion	Covered	Total	%
branch	78	390	20.0

line	true	false	branch
35	41	2	if ($$self{'text'}) { }
36	0	41	if ($$self{'unsafe'}) { }
45	0	2	unless ($res)
57	10	33	unless wantarray
58	2	31	$$self{'simple'} ? :
88	0	0	if ($p{'text'})
107	0	33	if (defined $$self{'scheme'})
110	0	33	if (defined $$self{'xbs'})
120	0	33	if (defined $$self{'xbso'})
123	0	0	if $cres
134	0	0	if (ref $scheme eq 'ARRAY') { }
137	0	0	unless $res
149	0	0	if substr($key, 0, 1) eq '_' or $key eq '_att' or $key eq 'comment'
150	0	0	if ($key eq 'value')
153	0	0	if ($regexp)
154	0	0	unless ($val =~ /^($regexp)$/)
163	0	0	unless ($ssub)
167	0	0	if (ref $sub eq 'HASH')
169	0	0	if $res
171	0	0	if (ref $sub eq 'ARRAY')
173	0	0	if (ref $asub eq 'ARRAY')
176	0	0	if ($$asub{'_t'})
178	0	0	if ($#$sub >= $max)
183	0	0	if ($#$sub + 1 < $min)
190	0	0	if $res
194	0	0	if (my $dem = $$scheme{'_demand'})
197	0	0	unless ($ck)
201	0	0	if (ref $ck eq 'ARRAY')
203	0	0	if $#$ck == -1
215	0	10	if (not ref $res and $res < 0)
225	1	0	unless $$node{'multi_' . $name}
226	1	0	unless $$node{$name}
236	0	0	unless $$node{'multi_' . $name}
237	0	0	unless $$node{$name}
242	0	0	unless $$anode{'_pos'}
247	0	0	if $$anode{'_pos'} > $opos
262	0	0	unless $node
267	0	0	if ($$one{$key}{'value'} eq $val)
282	0	1	if (/^_/ or ref $val eq 'HASH') { }
296	0	0	if ($ref eq 'ARRAY')
303	0	0	if ($ref eq 'HASH')
307	0	0	if $key eq 'comment' or $key eq 'value' or $key =~ /^_/
311	0	0	if ($cnt == 0)
322	0	0	if $name and $name =~ /^\_/
323	0	0	$name ? :
324	0	0	if ($ref eq 'ARRAY') { }
	0	0	elsif ($ref eq 'HASH') { }
338	0	0	if ($node =~ /[<]/) { }
341	0	0	if ($name)
351	0	2	unless $$self{'html'}
360	0	2	unless $len
370	0	2	if ($os eq 'MSWin32') { }
382	0	2	if ($cursize != $len)
389	0	2	if ($cursize != $len)
397	18	0	unless ($name)
410	0	0	if ($$self{'style'})
413	0	0	unless ($name)
430	0	0	if (ord $let == 10)
438	0	0	if ($$self{'offset'})
454	0	1	unless defined $node
455	0	1	unless $node = $$node{$name}
456	1	0	if ref $node eq 'HASH'
457	1	0	if (ref $node eq 'ARRAY')
462	0	1	unless defined $val
463	1	0	if ($$one{$key}{'value'} eq $val)
479	0	0	unless $ref
480	0	0	if ref $ref eq 'ARRAY'
487	0	0	$$_{$id} ? :
489	0	0	unless $$one{$id}
491	0	0	unless $short
493	0	0	if $key eq '_pos' or $key eq 'id'
496	0	0	if (not $cur) { }
499	0	0	if ($type eq 'HASH')
504	0	0	if (ref $add eq 'HASH') { }
521	0	0	if ($$ob{'save'})
522	0	0	if "$$ob{'save'}" ne '1'
534	8	0	unless ($ops{'keeproot'})
537	8	0	if $first
552	0	0	if substr($key, 0, 1) eq '_' or $key eq '_att' or $key eq 'comment'
553	0	0	if ($key eq 'value')
555	0	0	if $val =~ /^\W*$/
560	0	0	if ($key =~ /([a-z_]+)([^a-z_]+)/) { }
565	0	0	if ($t eq '+') { }
	0	0	elsif ($t eq '*') { }
	0	0	elsif ($t eq '?') { }
	0	0	elsif ($t eq '@') { }
	0	0	elsif ($t =~ /\{([0-9]+),([0-9]+)\}/) { }
588	0	0	if (ref $sub eq 'HASH')
594	0	0	if (ref $sub eq 'ARRAY')
603	0	0	if $min
608	0	0	if (ref $sub eq 'HASH')
614	0	0	if (ref $sub eq 'ARRAY')
626	0	0	if (@demand)
634	0	1	if (ref $arr eq 'ARRAY') { }
636	0	0	if eval $cond
640	1	0	if eval $cond
653	0	0	if eval $cond
661	0	0	$_[0] ? :
666	18	78	unless $level
667	54	42	if $level <= 2
671	0	96	unless $objs
678	11	453	if ref $oba eq 'ARRAY'
679	5	459	if ref $obb eq 'ARRAY'
680	108	356	if (ref $oba eq 'HASH')
681	107	357	if (ref $obb eq 'HASH')
687	4	361	if ($type eq 'ARRAY') { }
	80	281	elsif ($type eq 'HASH' and not $i =~ /^_/) { }
691	0	3	unless ($a)
692	0	3	unless ($b)
693	3	0	if (ref $a eq 'HASH' and ref $b eq 'HASH')
696	0	3	unless ($posa)
697	0	3	unless ($posb)
708	9	71	if ($$obj{'_att'}) { }
710	9	0	unless $i =~ /^_/
718	3	278	if ($i eq 'comment') { }
	42	236	elsif ($i eq 'value') { }
	236	0	elsif ($i =~ /^_/) { }
720	35	7	if ($level > 1)
721	1	34	if ($obj and $obj =~ /[<>&;]/) { }
722	27	7	if $obj =~ /\S/
729	44	52	$imm ? :
730	44	52	$imm ? :
731	96	0	if (substr($name, 0, 1) ne '_')
732	60	36	if ($name)
733	47	13	if ($html) { }
740	60	36	if $level > 1
762	0	0	unless $level
763	0	0	if $level == 1
767	0	0	unless $objs
773	0	0	if ref $oba eq 'ARRAY'
774	0	0	if ref $obb eq 'ARRAY'
775	0	0	if (ref $oba eq 'HASH')
776	0	0	if (ref $obb eq 'HASH')
780	0	0	if ($$objs{'_cdata'})
794	0	0	if ($type eq 'ARRAY') { }
	0	0	elsif ($type eq 'HASH' and not $i =~ /^_/) { }
798	0	0	unless ($a)
799	0	0	unless ($b)
800	0	0	if (ref $a eq 'HASH' and ref $b eq 'HASH')
803	0	0	unless ($posa)
804	0	0	unless ($posb)
813	0	0	if ($$obj{'_att'}) { }
816	0	0	if ($val eq '') { }
817	0	0	unless $i =~ /^_/
820	0	0	unless $i =~ /^_/
829	0	0	if ($i eq 'comment') { }
	0	0	elsif ($i eq 'value') { }
	0	0	elsif ($i =~ /^_/) { }
831	0	0	if ($level > 1)
832	0	0	if ($obj and $obj =~ /[<>&;]/ and not $$objs{'_cdata'}) { }
833	0	0	if $obj =~ /\S/
840	0	0	$imm ? :
841	0	0	if (substr($name, 0, 1) ne '_')
842	0	0	if ($name)
843	0	0	if ($imm) { }
844	0	0	if ($html =~ /\S/) { }
852	0	0	if ($html =~ /\S/) { }
858	0	0	if $$objs{'_br'}
859	0	0	if ($$objs{'_note'})
867	0	0	if $level
882	0	0	if (ref $node eq 'HASH') { }
893	0	0	if (ref $curnode eq 'ARRAY')
898	0	0	if ($fix)
900	0	0	if (ref $curnode eq 'ARRAY') { }
913	0	0	if ($part =~ /^([a-zA-Z]*)\@([a-zA-Z]+)=(.+)/) { }
	0	0	elsif ($part eq '*') { }
917	0	0	if ($subname) { }
919	0	0	if (scalar @$curnodes == 1) { }
937	0	0	if $key =~ /^_/
938	0	0	if $key eq 'value'
946	0	0	if ($att eq 'value') { }
948	0	0	if $$curnode{'value'} eq $val
953	0	0	if $$curnode{$att}{'value'} eq $val
961	0	0	if $key =~ /^_/
962	0	0	if $key eq 'value'
969	0	0	if (scalar @$curnodes == 1) { }
982	0	0	unless scalar @$curnodes
995	0	0	if (ref $node eq 'HASH')
996	0	0	if $$node{'_att'}
998	0	0	if $name =~ /^_/
999	0	0	if $name eq 'value'
1000	0	0	if ($name eq $tagname)
1006	0	0	if (ref $node eq 'ARRAY')
1021	0	0	if (ref $node eq 'HASH')
1022	0	0	if $$node{'_att'}
1023	0	0	if ($$node{'id'} and $$node{'id'}{'value'} eq $id)
1027	0	0	if $name =~ /^_/
1028	0	0	if $name eq 'value'
1032	0	0	if (ref $node eq 'ARRAY')
1047	0	0	if (ref $node eq 'HASH')
1048	0	0	if $$node{'_att'}
1049	0	0	if ($$node{$att} and $$node{$att}{'value'} eq $val)
1053	0	0	if $name =~ /^_/
1054	0	0	if $name eq 'value'
1058	0	0	if (ref $node eq 'ARRAY')