| line |
true |
false |
branch |
|
33
|
0 |
452 |
unless (defined $f->{'cf_entns'}) |
|
36
|
0 |
452 |
if ($dup{$f->{'cf_entns'}}++) { } |
|
45
|
0 |
220 |
unless (defined $tmpl->{'cf_entns'}) |
|
50
|
0 |
220 |
unless (defined $glob) |
|
55
|
0 |
220 |
if (grep {not defined $_;} @isa) |
|
58
|
0 |
220 |
if (my $err = &catch(sub {
*$glob = \@isa;
}
)) |
|
81
|
220 |
0 |
unless ($self->{'cf_no_lineinfo'}) |
|
83
|
219 |
1 |
if (defined(my $fn = $tmpl->fake_filename)) |
|
92
|
72 |
148 |
if $tmpl->{'cf_utf8'} |
|
93
|
7 |
213 |
if $tmpl->{'cf_age'}++ |
|
103
|
2 |
344 |
if ($widget->{'cf_suppressed'}) |
|
131
|
1 |
2 |
if (lexpand($action->{'arg_order'}) or not $src =~ /^([\ \t\r\n]*)my\s*\([^;\)]+\)\s*=\s*\@_\s*;/) |
|
141
|
3 |
0 |
$has_nl ? : |
|
153
|
233 |
355 |
$for_decl ? : |
|
159
|
127 |
250 |
if $for_decl |
|
166
|
560 |
28 |
unless defined(my $default = $var->default) and defined(my $mode = $var->dflag) |
|
169
|
4 |
24 |
if ($mode eq '!') |
|
175
|
2 |
22 |
if ($mode eq '|') { } |
|
|
20 |
2 |
elsif ($mode eq '?') { } |
|
|
2 |
0 |
elsif ($mode eq '/') { } |
|
201
|
0 |
403 |
if $localtoks |
|
208
|
235 |
965 |
if defined $pad |
|
209
|
649 |
551 |
if @queue |
|
211
|
233 |
967 |
if $task |
|
212
|
382 |
818 |
if $last and not @{$self->{'curtoks'};} |
|
214
|
569 |
631 |
if $has_nl |
|
219
|
901 |
571 |
unless (ref $node) |
|
222
|
474 |
427 |
if $node ne '' |
|
224
|
569 |
332 |
if $has_nl |
|
226
|
546 |
23 |
if $has_nl and @{$self->{'curtoks'};} || !$self->{'no_last_newline'} |
|
227
|
583 |
318 |
if $has_nl or $node =~ /\n/ |
|
231
|
0 |
571 |
unless my $sub = $DISPATCH[$node->[0]] |
|
234
|
0 |
550 |
unless (defined $expr) |
|
238
|
233 |
317 |
if (ref $expr) { } |
|
241
|
2 |
315 |
if length $pad |
|
243
|
0 |
317 |
if $expr =~ /\n/ |
|
255
|
1 |
77 |
if (not @_ and $text_quote) |
|
260
|
103 |
32 |
unless (ref $node) |
|
261
|
50 |
53 |
$text_quote ? : |
|
266
|
0 |
32 |
unless my $sub = $$dispatch[$node->[0]] |
|
270
|
0 |
32 |
unless defined $expr |
|
271
|
0 |
32 |
if (ref $expr) |
|
276
|
74 |
4 |
wantarray ? : |
|
306
|
0 |
206 |
if (my $alt = $self->altgen($path->[0])) { } |
|
|
36 |
170 |
elsif (@$path == 2 and my $macro = $self->can('macro_' . join('_', @$path)) || $self->can("macro_$path->[-1]")) { } |
|
327
|
23 |
147 |
if (@path == 2 and my $var = $self->find_callable_var($path[-1])) |
|
334
|
2 |
145 |
unless (my YATT::Lite::Core::Widget $widget = $self->lookup_widget(@path)) |
|
341
|
29 |
116 |
unless ($use_this) |
|
344
|
116 |
29 |
$use_this ? : |
|
354
|
91 |
14 |
unless $delegate_vars or $widget->{'has_required_arg'} or $primary or $body |
|
359
|
2 |
131 |
unless (my $formal = $widget->{'arg_dict'}{$name}) |
|
362
|
0 |
131 |
if (defined $argOrder[my $argno = $formal->argno]) { } |
|
373
|
8 |
84 |
unless (defined $name) |
|
374
|
0 |
8 |
unless defined($name = $widget->{'arg_order'}[$posArgs++]) |
|
378
|
2 |
3 |
do {
defined(my $v = $formal->flag) if not defined argValue($_)
} ? : |
|
|
30 |
5 |
do {
my $actual = $self->find_var($passThruVar)
} ? : |
|
|
35 |
55 |
(my $passThruVar = passThruVar($_)) ? : |
|
381
|
2 |
28 |
if ($formal->already_escaped and not $actual->already_escaped) { } |
|
387
|
5 |
0 |
if not defined argValue($_) |
|
397
|
26 |
46 |
$body ? : |
|
399
|
15 |
26 |
ref $name ? : |
|
405
|
125 |
58 |
if defined $argOrder[$i] |
|
407
|
7 |
51 |
if (my $inherit = $delegate_vars->{$argName}) { } |
|
|
1 |
50 |
elsif ($widget->{'arg_dict'}{$argName}->is_required) { } |
|
415
|
132 |
50 |
defined $_ ? : |
|
421
|
28 |
850 |
do {
my $sub = $self->can('as_lvalue_' . $type->[0])
} ? : |
|
|
878 |
0 |
defined $type ? : |
|
443
|
3 |
0 |
$tmpl == $self->{'curtmpl'} ? : |
|
450
|
0 |
6 |
if (my $sub = $self->can('as_escaped_' . $var->type->[0])) { } |
|
461
|
0 |
139 |
unless my $sub = $self->can("as_cast_to_$type") |
|
467
|
68 |
14 |
unless ref $value |
|
475
|
4 |
12 |
unless (ref $value) |
|
483
|
1 |
5 |
ref $value ? : |
|
490
|
1 |
2 |
ref $value ? : |
|
506
|
2 |
6 |
do {
defined $skip
} ? : |
|
|
8 |
137 |
wantarray && ref $name ? : |
|
517
|
33 |
65 |
if ($arg->[0] == 6) { } |
|
|
8 |
57 |
elsif ($arg->[0] == 7) { } |
|
527
|
0 |
37 |
if (my $sub = $self->can('pi_of_' . $node->[4][0])) |
|
533
|
6 |
6 |
do {
length $& >= 3
} ? : |
|
|
12 |
25 |
$body[0] =~ s/^=+// ? : |
|
542
|
1 |
36 |
unless $expr =~ /\S/ |
|
544
|
24 |
12 |
$is_statement ? : |
|
561
|
1 |
2 |
if (@$body >= 2 or @$path >= 2) { } |
|
567
|
1 |
0 |
if (my $sub = $self->{'cf_lcmsg_sink'}) |
|
575
|
2 |
0 |
if (my $sub = $self->{'cf_lcmsg_sink'}) |
|
585
|
2 |
2 |
if (@$list >= 2 and not ref $list->[0] and not ref $list->[-1] and $list->[0] =~ /^\n+$/ and $list->[-1] =~ /^\n+$/) |
|
588
|
2 |
0 |
if (@$list and not ref $list->[0]) |
|
593
|
0 |
5 |
do {
$vspec->[0] ne 'var' unless ref($vspec = $item->[5]) ne 'ARRAY'
} ? : |
|
|
0 |
5 |
do {
$item->[0] != 3
} ? : |
|
|
5 |
7 |
ref $item ? : |
|
599
|
5 |
0 |
unless ref($vspec = $item->[5]) ne 'ARRAY' |
|
605
|
0 |
5 |
unless my $var = $self->find_var($name) |
|
607
|
4 |
1 |
unless ($uniq->{$name}) |
|
611
|
3 |
2 |
$ref_numeric ? : |
|
613
|
1 |
4 |
if ($ref_numeric and $var->type->[0] eq 'scalar') { } |
|
615
|
0 |
1 |
if ($$ref_numeric) |
|
626
|
2 |
2 |
wantarray ? : |
|
645
|
0 |
830 |
unless @_ |
|
647
|
108 |
692 |
if (@_ == 1 and $_[0][0] eq 'call' and my $macro = $self->can("entmacro_$_[0][1]")) |
|
654
|
760 |
0 |
if (my $sub = $self->can("as_expr_$type")) { } |
|
660
|
0 |
713 |
unless @result |
|
661
|
30 |
683 |
@result > 1 ? : |
|
663
|
526 |
187 |
if (not $escape_now or ref $result) { } |
|
674
|
104 |
158 |
wantarray ? : |
|
678
|
8 |
222 |
unless my $var = $self->find_var($name) |
|
680
|
26 |
196 |
if (my $sub = $self->can('as_expr_var_' . $var->type->[0])) { } |
|
702
|
11 |
139 |
if (my $var = $self->find_callable_var($name)) |
|
709
|
1 |
138 |
unless ($tmpl->{'cf_entns'}->can("entity_$name")) |
|
719
|
1 |
10 |
if (my $sub = $self->can('as_expr_call_var_' . $var->type->[0])) { } |
|
761
|
2 |
0 |
if ($name =~ /^\w+$/) { } |
|
787
|
7 |
20 |
unless (defined $name) |
|
788
|
0 |
7 |
unless $name = $$arg_order[$nth++] |
|
791
|
0 |
27 |
unless defined(my $argno = $arg_dict->{$name}) |
|
806
|
0 |
9 |
unless $self->feed_arg_spec($primary, \%args, \@args, my($if, $unless)) |
|
810
|
9 |
0 |
if ($if) { } |
|
|
0 |
0 |
elsif ($unless) { } |
|
820
|
6 |
0 |
if ($arg->[4][-1] eq 'else') { } |
|
824
|
2 |
4 |
if ($if) { } |
|
|
0 |
4 |
elsif ($unless) { } |
|
837
|
11 |
4 |
defined $guard ? : |
|
850
|
6 |
10 |
$body && @$body ? : |
|
854
|
1 |
25 |
if (my $oldvar = $self->find_var($name)) |
|
860
|
3 |
22 |
if (my $sub = $self->can("_macro_my_$typename")) { } |
|
863
|
0 |
22 |
unless my $var = $self->{'scope'}[0]{$name} = $self->mkvar_at(undef, $typename, $name) |
|
870
|
19 |
3 |
$value ? : |
|
877
|
6 |
9 |
if ($has_body) |
|
880
|
1 |
5 |
if ($arg->[0] == 9) { } |
|
926
|
0 |
8 |
unless $self->feed_arg_spec($primary, \%args, \@args, my($list, $my, $nth)) |
|
932
|
0 |
8 |
unless (defined $list) |
|
938
|
7 |
1 |
if ($my) { } |
|
950
|
1 |
7 |
if ($nth and my $vn = $nth->[5]) |
|
952
|
1 |
0 |
if ($vn =~ /^(\w+)$/) { } |
|
959
|
1 |
7 |
if ($nth_var) |
|
968
|
6 |
0 |
do {
my $found_var = $self->find_var($passThruVarName)
} ? : |
|
|
6 |
2 |
(my $passThruVarName = passThruVar($list)) ? : |
|
971
|
1 |
5 |
unless ($found_var->is_type('list')) |
|
985
|
0 |
7 |
if ($opts and $opts->{'fragment'}) { } |
|
1004
|
0 |
297 |
ref $_ ? : |
|
1011
|
0 |
0 |
ref $_ ? : |
|
1017
|
0 |
0 |
unless (@list == 2) |
|
1021
|
0 |
0 |
ref $_ ? : |
|
1027
|
0 |
0 |
unless (@list == 2) |
|
1031
|
0 |
0 |
ref $_ ? : |