Branch Coverage

blib/lib/App/Rsnapshot/XML/Tiny.pm
Criterion Covered Total %
branch 63 64 98.4


line true false branch
170 210 2 if (ref $arg eq '') { }
171 22 188 if ($arg =~ /^_TINY_XML_STRING_/) { }
175 1 187 unless open FH, $arg
180 2 209 if not defined $file or $file =~ /^\s*$/
183 5 204 if $file =~ /[\x00-\x08\x0b\x0c\x0e-\x1f]/
189 1 1 $1 eq '<' ? :
2 2 $1 eq '&' ? :
196 45 172 if $_
199 2 194 if $file =~ /]]>/ or $file =~ //s or grep {/--/ if $_;} $file =~ /^\s+||\s+$/gs
210 111 83 if ($params{'fatal_declarations'} and $file =~ /
215 1064 226 if length $_
217 6 743 if ($token =~ /<\?$regexps{'name'}.*?\?>/is or $token =~ /^
241 502 elsif ($token =~ m[^]i) { }
351 151 elsif ($token =~ m[^<$regexps{'name'}(\s[^>]*)*(\s*/)?>]is) { }
13 138 elsif ($token =~ /^
223 3 238 if $$elem{'name'} ne $1
233 350 1 if (@{$attrib;} == 2 * keys(%{+{@{$attrib;}};})) { }
241 12 338 if $attribs_raw =~ /\S/ or grep {/
243 337 1 unless ($params{'no_entity_parsing'})
257 70 264 if ($token =~ m[\s*/>$])
265 137 1 unless ($params{'no_entity_parsing'})
269 0 42 if exists $$elem{'parent'}
270 12 30 if $#{$$elem{'content'};} > 0
272 1 29 if $#{$$elem{'content'};} == -1 or $$elem{'content'}[0]{'type'} ne 'e'
280 22 267 $strict_entity_parsing ? :
282 2 5 substr($3, 0, 1) eq 'x' ? :
7 12 $1 eq 'amp;' ? :
19 19 $1 eq 'quot;' ? :
1 38 $1 eq 'apos;' ? :
89 39 $1 eq 'gt;' ? :
84 128 $1 eq 'lt;' ? :
7 212 $3 ? :