Branch Coverage

blib/lib/XML/Tiny.pm
Criterion Covered Total %
branch 66 68 97.0


line true false branch
173 221 2 if (ref $arg eq '') { }
174 29 192 if ($arg =~ /^_TINY_XML_STRING_/) { }
178 1 191 unless open FH, $arg
187 2 220 if not defined $file or $file =~ /^\s*$/
190 6 214 if $file =~ /[\x00-\x08\x0b\x0c\x0e-\x1f]/
196 1 1 $1 eq q['] ? :
0 2 $1 eq '"' ? :
1 2 $1 eq '<' ? :
2 3 $1 eq '&' ? :
205 6 170 if $_
208 2 204 if $file =~ /]]>/ or $file =~ //s or grep {/--/ if $_;} $file =~ /^\s+||\s+$/gs
219 111 93 if ($params{'fatal_declarations'} and $file =~ /
224 688 236 if length $_
226 6 527 if ($token =~ /<\?$regexps{'name'}.*?\?>/is or $token =~ /^
168 359 elsif ($token =~ m[^]i) { }
241 118 elsif ($token =~ m[^<$regexps{'name'}(\s[^>]*)*(\s*/)?>]is) { }
13 105 elsif ($token =~ /^
232 3 165 if $$elem{'name'} ne $1
242 240 1 if (@{$attrib;} == 2 * keys(%{+{@{$attrib;}};})) { }
250 12 228 if $attribs_raw =~ /\S/ or grep {/
252 227 1 unless ($params{'no_entity_parsing'})
266 33 191 if ($token =~ m[\s*/>$])
274 104 1 unless ($params{'no_entity_parsing'})
278 0 52 if exists $$elem{'parent'}
279 12 40 if $#{$$elem{'content'};} > 0
281 1 39 if $#{$$elem{'content'};} == -1 or $$elem{'content'}[0]{'type'} ne 'e'
289 22 153 $strict_entity_parsing ? :
291 2 5 substr($3, 0, 1) eq 'x' ? :
7 12 $1 eq 'amp;' ? :
19 19 $1 eq 'quot;' ? :
2 38 $1 eq 'apos;' ? :
89 40 $1 eq 'gt;' ? :
84 129 $1 eq 'lt;' ? :
7 213 $3 ? :