Condition Coverage

blib/lib/YATT/Lite/LRXML.pm
Criterion Covered Total %
condition 65 106 61.3


and 3 conditions

line !l l&&!r l&&r condition
133 0 0 79 defined $tmpl and UNIVERSAL::isa($tmpl, $pack->Template)
297 7 5 380 $part->{'toks'} and @{$part->{'toks'};}
343 217 53 350 not $+{'attname'} and $+{'bare'}
53 1 349 not $+{'attname'} and $+{'bare'} and is_ident($+{'bare'})
360 147 18 92 !$quote && is_ident($value)
399 10 0 368 @$chunks && !ref($chunks->[0])
416 372 336 10 @$chunks and ref $chunks->[0]
455 10 0 16 @$list and $list->[-1] =~ /^\s*$/s
512 7 0 86 @_ and $_[0]
0 76 10 @_ and $_[0] and $_[0][0] == 8
76 7 3 @_ and $_[0] and $_[0][0] == 8 and not defined $_[0][4]
585 0 0 457 ref $self->{'cf_namespace'} && wantarray
594 244 91 151 $tmpl->{'partlist'} and my YATT::Lite::Core::Part $prev = $tmpl->{'partlist'}[-1]
733 0 0 1 $argSpec->[0] == 8 and ($attName) = $argSpec->[5] =~ /^-(\w+)$/
833 0 377 235 defined $_[0] and length $_[0]

or 2 conditions

line l !l condition
62 8 449 $self->{'cf_namespace'} ||= ['yatt', 'perl']
398 371 7 $widget->{'toks'} //= []
537 3 1 $_->[5] // 1
624 1 0 $desc || ''
650 104 165 $desc || ''

or 3 conditions

line l !l&&r !l&&!r condition
64 0 457 0 $self->{'re_name'} ||= $self->re_name
65 0 457 0 $self->{'re_decl'} ||= qr/$nspat(?::\w++)+) |(?:--\#(?$nspat(?::\w++)*)))\b/sx
84 0 457 0 $self->{'re_att'} ||= qr#(?\s++) | (?--+.*?--+) | (?%(?:[\w\:\.]+(?:[\w:\.\-=\[\]\{\}\(,\)]+)?);) | (?:(?[\w:]+)\s*=\s*+)?+ (?:'(?[^']*+)' |"(?[^\"]*+)" |(?\[) | (?\]) |$entOpen |(?[^\s'\"<>\[\]/=]++) ) #sx
95 0 457 0 $self->{'re_body'} ||= qr"$entOpen |<(?:(?/?)(?:?)(?$nspat(?::\w++)+) |\?(?$nspat(?::\w++)*))\b "sx
101 0 457 0 $self->{'re_eopen'} ||= qr/(? [\(\{\[])/sx
102 0 457 0 $self->{'re_eclose'} ||= qr/(? [\)\}\]])/sx
103 0 457 0 $self->{'re_evar'} ||= qr/: (?\w+)/sx
104 0 457 0 $self->{'ch_etext'} ||= qr/(?: [^\ \t\n,;:()\[\]{}])/sx
105 0 457 0 $self->{'re_eparen'} ||= qr/(\( (? (?: (?> [^()]+) | (?-2) )*) \) )/sx
241 2 33 0 $nameAtt->[4] // $self->location2name($nameAtt->[5])
258 92 11 0 &$sub($self, $tmpl, $ns, $self->parse_attlist($str, 1)) // $part
338 638 5 633 $+{'ws'} or $+{'comment'}
343 1 0 257 $+{'entity'} or $+{'special'}
563 19 19 0 $self->{'subroutes'} //= $self->SubRoutes->new
621 0 0 0 $desc->[4] || $desc->[5]
647 12 0 0 $desc->[4] || $desc->[5]
770 0 1 0 $new[0] ||= $orig->[0]