Branch Coverage

web/cgi-bin/yatt.lib/YATT/LRXML/Parser.pm
Criterion Covered Total %
branch 136 158 86.0


line true false branch
58 1956 489 unless $re_cached{"re_$name"}
70 0 489 if (@_ == 1) { }
165 324 elsif (not $self->{'metainfo'}) { }
90 0 156 if (my $layer = $self->{'metainfo'}->cget('iolayer'))
96 156 0 $self->{'cf_untaint'} ? :
130 156 12 if (my $reg = $self->{'cf_registry'}) { }
147 624 165 if $text ne ''
148 154 635 unless $scan->readable
150 0 635 unless (defined $toktype)
156 633 2 if (my $sub = $self->can("build_$toktype")) { }
166 2 0 if ($builder->{'cf_endtag'} and $builder->{'parent'})
172 0 161 if (wantarray) { }
206 64 191 if ($close)
214 21 170 if (defined $ns and $ns =~ s/^:(?=\w)//) { }
218 18 152 if (defined $html) { }
225 108 62 $is_ee ? :
229 18 173 $html ? :
235 67 124 if (not $is_ee) { }
16 108 elsif ($is_att) { }
258 183 4 if (my $reg = $self->{'cf_registry'}) { }
267 0 491 unless $capture
295 0 0 defined $_ ? :
306 0 429 if $self->{'cf_debug'}
307 3 426 if (defined $1) { }
52 374 elsif (defined $2) { }
20 354 elsif (defined $3) { }
320 20 334 if (defined $8) { }
330 0 207 if $self->{'cf_debug'}
340 112 79 if (defined $_[0] and my(@match) = $_[0] =~ /$self->{'re_attlist'}/g)
349 0 264 unless defined $_[0]
350 0 264 if $_[0] eq ''
351 0 264 unless defined $self->{'re_entity'}
353 206 58 if @tokens == 1
356 49 42 if $tokens[$i] ne ''
357 67 24 if $i + 1 < @tokens
361 52 6 if (wantarray) { }
5 1 elsif (@result > 1) { }
376 283 8 @name ? :
231 60 $entpath eq '' ? :
385 168 0 if (my YATT::LRXML::MetaInfo $meta = $self->{'metainfo'})
397 2445 4475 $wantarray ? :
401 489 1492 if $wantarray
411 493 1 $capture ? :
427 493 502 if (defined $capture and $capture > 1) { }
431 6 496 $capture ? :
440 2 1 $capture ? :
445 0 579 if $capture
451 0 579 if (not @$nslist) { }
454 0 1053 ref $_ ? :
90 0 ref $additional ? :
489 90 !$additional ? :
463 4 3501 $capture ? :
468 1007 982 unless defined $ns
470 985 1004 if (defined $capture and $capture > 1) { }
474 11 993 $capture ? :
481 501 497 $capture ? :
492 494 997 if (defined $capture and $capture > 1) { }
496 1 996 $capture ? :
512 990 998 if $capture
519 990 998 if $capture
533 501 999 $capture ? :
550 491 500 if (defined $capture and $capture > 1) { }
554 4 496 $capture ? :
561 495 496 $capture ? :
567 495 496 $capture ? :
578 0 3 defined $ns ? :
580 1 2 if (defined $capture and $capture > 1) { }
584 1 1 $capture ? :
591 0 6 defined $ns ? :
595 1 5 if (defined $capture and $capture > 1) { }
599 4 1 $capture ? :
619 492 502 if (defined $capture and $capture > 1) { }
623 5 497 $capture ? :
630 904 90 unless my $special = $self->{'cf_special_entities'}
638 1456 1520 unless defined $ns
639 991 1985 unless defined $pre
640 2976 0 unless defined $suf
641 2974 2 if (defined $ns and $ns ne '') { }
642 982 1992 if $capture and $capture > 1