Condition Coverage

blib/lib/YATT/Lite/CGen/Perl.pm
Criterion Covered Total %
condition 83 117 70.9


and 2 conditions

line l !l condition
159 0 127 0 push @res, "\n" and ++$self->{'curline'}
212 0 382 $result[-1] .= $last and undef $last

and 3 conditions

line !l l&&!r l&&r condition
166 560 0 28 defined(my $default = $var->default) and defined(my $mode = $var->dflag)
212 339 479 382 $last and not @{$self->{'curtoks'};}
226 332 35 534 $has_nl and @{$self->{'curtoks'};} || !$self->{'no_last_newline'}
255 77 0 1 not @_ and $text_quote
306 3 167 36 @$path == 2 and my $macro = $self->can('macro_' . join('_', @$path)) || $self->can("macro_$path->[-1]")
327 3 144 23 @path == 2 and my $var = $self->find_callable_var($path[-1])
381 27 1 2 $formal->already_escaped and not $actual->already_escaped
506 92 45 8 wantarray && ref $name
585 0 0 4 @$list >= 2 and not ref $list->[0]
0 0 4 @$list >= 2 and not ref $list->[0] and not ref $list->[-1]
0 2 2 @$list >= 2 and not ref $list->[0] and not ref $list->[-1] and $list->[0] =~ /^\n+$/
2 0 2 @$list >= 2 and not ref $list->[0] and not ref $list->[-1] and $list->[0] =~ /^\n+$/ and $list->[-1] =~ /^\n+$/
588 0 0 2 @$list and not ref $list->[0]
613 2 2 1 $ref_numeric and $var->type->[0] eq 'scalar'
647 30 544 256 @_ == 1 and $_[0][0] eq 'call'
574 148 108 @_ == 1 and $_[0][0] eq 'call' and my $macro = $self->can("entmacro_$_[0][1]")
850 10 0 6 $body && @$body
950 7 0 1 $nth and my $vn = $nth->[5]
985 7 0 0 $opts and $opts->{'fragment'}

or 2 conditions

line l !l condition
111 344 0 $widget->{'arg_dict'} ||= {}
230 6 565 $self->sync_curline($node->[3]) // ''
497 7 25 $virtual->{'arg_dict'} ||= {}
855 1 0 $oldvar->lineno // '(unknown)'
941 0 7 $type[0] || ''
960 0 1 $nth_type[0] || ''
1004 99 0 $else || q['']
1011 0 0 $else || q['']

or 3 conditions

line l !l&&r !l&&!r condition
79 220 0 0 $tmpl ||= $self->{'curtmpl'}
131 1 0 2 lexpand($action->{'arg_order'}) or not $src =~ /^([\ \t\r\n]*)my\s*\([^;\)]+\)\s*=\s*\@_\s*;/
226 238 308 23 @{$self->{'curtoks'};} || !$self->{'no_last_newline'}
227 569 14 318 $has_nl or $node =~ /\n/
306 0 36 167 $self->can('macro_' . join('_', @$path)) || $self->can("macro_$path->[-1]")
354 3 1 164 $delegate_vars or $widget->{'has_required_arg'}
1 59 105 $delegate_vars or $widget->{'has_required_arg'} or $primary
59 14 91 $delegate_vars or $widget->{'has_required_arg'} or $primary or $body
561 1 0 2 @$body >= 2 or @$path >= 2
663 516 10 187 not $escape_now or ref $result
695 0 5 0 $attname // $name
729 1 0 0 $attname // $name
859 8 17 0 $typename ||= $default_type