| line |
true |
false |
branch |
|
53
|
230 |
16 |
$tmpl->{'cf_public'} ? : |
|
61
|
449 |
8 |
if $self->{'cf_vfs'} |
|
80
|
62 |
395 |
if $self->{'cf_special_entities'} |
|
116
|
0 |
0 |
ref $loadSpec ? : |
|
117
|
0 |
0 |
unless (defined $loadType) |
|
120
|
0 |
0 |
unless my $sub = $pack->can("load_${loadType}_into") |
|
123
|
0 |
0 |
ref $tmplSpec ? : |
|
133
|
0 |
79 |
unless defined $tmpl and UNIVERSAL::isa($tmpl, $pack->Template) |
|
136
|
0 |
79 |
unless (defined $fn) |
|
139
|
79 |
0 |
ref $pack ? : |
|
140
|
0 |
79 |
unless open my $fh, '<', $fn |
|
141
|
79 |
0 |
if $self->{'cf_encoding'} |
|
153
|
238 |
6 |
ref $pack ? : |
|
155
|
0 |
244 |
unless (defined $_[0]) |
|
159
|
7 |
234 |
if $self->{'cf_all'} |
|
160
|
0 |
241 |
wantarray ? : |
|
165
|
2 |
234 |
if $tmpl->{'parse_ok'} |
|
179
|
886 |
252 |
if $sync |
|
187
|
0 |
0 |
if $sync |
|
194
|
7 |
237 |
if $tmpl->{'product'} |
|
205
|
156 |
109 |
if length $1 |
|
207
|
10 |
255 |
if (my $comment_ns = $+{'comment'}) |
|
208
|
0 |
10 |
unless ($str =~ s/^(.*?)-->(\r?\n)?//s) |
|
211
|
9 |
1 |
$2 ? : |
|
222
|
149 |
106 |
if ($self->can("build_$kind")) { } |
|
|
104 |
2 |
elsif (my $sub = $self->can("declare_$kind")) { } |
|
225
|
0 |
149 |
unless (my $nameAtt = YATT::Lite::Constants::cut_first_att(\@args)) |
|
231
|
114 |
35 |
if ($nameAtt->[0] == 6) { } |
|
|
35 |
0 |
elsif ($nameAtt->[0] == 8) { } |
|
236
|
0 |
35 |
unless ($mapping = $self->parse_location($nameAtt->[5], $nameAtt->[4])) |
|
248
|
35 |
114 |
if ($mapping) |
|
263
|
0 |
252 |
unless ($str =~ s/^>([\ \t]*\r?\n)?//s) |
|
270
|
0 |
252 |
unless ($1) |
|
288
|
151 |
241 |
if ($prev) |
|
289
|
0 |
151 |
unless (defined $part->{'cf_startpos'}) |
|
292
|
0 |
151 |
unless (defined $prev->{'cf_bodypos'}) |
|
297
|
380 |
12 |
if ($part->{'toks'} and @{$part->{'toks'};}) |
|
299
|
338 |
42 |
if ($part->{'toks'}[-1] =~ s/(?:\r?\n)+\Z//) |
|
301
|
335 |
3 |
unless $tmpl->{'cf_ignore_trailing_newlines'} |
|
304
|
389 |
3 |
if (my $sub = $part->can('fixup')) |
|
308
|
241 |
0 |
if ($prev) |
|
317
|
0 |
241 |
if ($self->{'cf_match_argsroute_first'}) |
|
318
|
0 |
0 |
if ($self->{'rootroute'}) |
|
322
|
19 |
222 |
if ($self->{'subroutes'}) |
|
338
|
643 |
633 |
if $+{'ws'} or $+{'comment'} |
|
339
|
13 |
620 |
if $+{'nestclo'} |
|
340
|
0 |
620 |
if $+{'macro'} |
|
343
|
349 |
271 |
if (not $+{'attname'} and $+{'bare'} and is_ident($+{'bare'})) { } |
|
|
13 |
258 |
elsif ($+{'nest'}) { } |
|
|
1 |
257 |
elsif ($+{'entity'} or $+{'special'}) { } |
|
350
|
0 |
1 |
if ($+{'lcmsg'}) |
|
360
|
92 |
165 |
!$quote && is_ident($value) ? : |
|
|
154 |
103 |
$for_decl ? : |
|
365
|
761 |
502 |
if $self->{'cf_debug'} |
|
367
|
520 |
0 |
wantarray ? : |
|
374
|
377 |
2 |
if (my $ns = $+{'entity'}) { } |
|
|
2 |
0 |
elsif (my $special = $+{'special'}) { } |
|
386
|
52 |
554 |
unless defined(my $value = shift()) |
|
390
|
7 |
547 |
@names > 1 ? : |
|
399
|
368 |
10 |
@$chunks && !ref($chunks->[0]) ? : |
|
409
|
455 |
253 |
if (length $_) |
|
410
|
455 |
0 |
if $sink |
|
418
|
10 |
0 |
if $sink |
|
422
|
372 |
336 |
unless @$chunks |
|
439
|
0 |
2033 |
unless (defined $pos) |
|
443
|
0 |
2033 |
unless (defined $tok) |
|
446
|
0 |
2033 |
unless ($tok eq $_[0]) |
|
496
|
0 |
93 |
unless ($oldpart->{'cf_implicit'}) |
|
499
|
91 |
2 |
if (@{$tmpl->{'partlist'};} == 1) { } |
|
512
|
3 |
83 |
if (@_ and $_[0] and $_[0][0] == 8 and not defined $_[0][4]) |
|
516
|
0 |
3 |
unless (my $mapping = $self->parse_location($patNode->[5], '', $newpart)) |
|
521
|
0 |
3 |
if ($self->{'cf_match_argsroute_first'}) { } |
|
557
|
0 |
38 |
unless $location =~ m[^/] |
|
574
|
244 |
0 |
if ($self->{'cf_namespace'}) { } |
|
582
|
0 |
457 |
unless defined $self->{'cf_namespace'} |
|
585
|
457 |
0 |
ref $self->{'cf_namespace'} && wantarray ? : |
|
591
|
0 |
486 |
if (defined $tmpl->{'Item'}{$part->{'cf_name'}}) |
|
594
|
151 |
335 |
if ($tmpl->{'partlist'} and my YATT::Lite::Core::Part $prev = $tmpl->{'partlist'}[-1]) |
|
620
|
0 |
1 |
if ($node_type == 9) { } |
|
626
|
1 |
0 |
defined $default ? : |
|
641
|
0 |
281 |
unless (defined $argName) |
|
646
|
12 |
269 |
if ($node_type == 9) { } |
|
653
|
1 |
280 |
if (my $var = $part->{'arg_dict'}{$argName}) { } |
|
654
|
1 |
0 |
if ($var->from_route) { } |
|
657
|
1 |
0 |
if $dflag |
|
658
|
1 |
0 |
if defined $default |
|
667
|
29 |
251 |
defined $default ? : |
|
672
|
12 |
267 |
if ($node_type == 9) { } |
|
678
|
0 |
12 |
unless my $sub = $self->can("add_arg_of_type_$t") |
|
719
|
1 |
2 |
@subtype ? : |
|
721
|
0 |
3 |
unless (my YATT::Lite::Core::Widget $delegate = $self->{'cf_vfs'}->find_part_from($widget->{'cf_folder'}, @wpath)) |
|
725
|
0 |
3 |
unless (&Scalar::Util::isweak($var->[8])) |
|
733
|
1 |
1 |
if (my $attName = $argSpec->[4]) { } |
|
|
1 |
0 |
elsif ($argSpec->[0] == 8 and ($attName) = $argSpec->[5] =~ /^-(\w+)$/) { } |
|
734
|
0 |
1 |
if defined $attDict{$attName} |
|
742
|
0 |
1 |
unless ($delegate->{'arg_dict'}{$attName}) |
|
760
|
0 |
8 |
if $widget->{'arg_dict'}{$argName} |
|
763
|
1 |
7 |
if $excludeDict->{$argName} |
|
768
|
1 |
6 |
if (my $att = $attDict->{$argName}) { } |
|
785
|
118 |
175 |
$part->{'arg_order'} ? : |
|
797
|
10 |
10 |
if (my $vfs = $self->{'cf_vfs'}) { } |
|
806
|
3 |
17 |
$self->{'cf_path'} ? : |
|
|
10 |
10 |
defined $ln ? : |
|
812
|
0 |
460 |
unless defined $_[0] |
|
821
|
257 |
286 |
if (defined(my $value = $hash->{$key})) |
|
830
|
244 |
0 |
ref $_[0] ? : |
|
833
|
377 |
235 |
unless defined $_[0] and length $_[0] |
|
859
|
0 |
10 |
unless (ref $_[0]) |
|
864
|
0 |
10 |
unless my $sym = $YATT::Lite::LRXML::{$meth} |
|
875
|
0 |
10 |
unless my $code = *{$sym;}{'CODE'} |