| line |
true |
false |
branch |
|
122
|
1 |
9 |
unless $tt->process($filename, {}, \$sink) |
|
138
|
0 |
10 |
unless my $chunks = $self->SUPER::split_text($text) |
|
142
|
9 |
1 |
unless defined $plug_in |
|
147
|
37 |
38 |
unless (ref $chunk) |
|
154
|
0 |
38 |
unless ref $tokens |
|
156
|
37 |
1 |
if ($lplug_in) { } |
|
157
|
9 |
28 |
if ("USE" eq $tokens->[0] and "IDENT" eq $tokens->[2]) |
|
158
|
0 |
9 |
if ($plug_in eq $tokens->[3] and 4 == @$tokens || '(' eq $tokens->[4]) { } |
|
|
9 |
0 |
elsif ('ASSIGN' eq $tokens->[4] and 'IDENT' eq $tokens->[6] and $plug_in eq $tokens->[7]) { } |
|
169
|
0 |
28 |
unless defined $ident |
|
179
|
13 |
219 |
if ($lplug_in and 'IDENT' eq $tokens->[$i] and $ident eq $$tokens[$i + 1] and 'DOT' eq $$tokens[$i + 2] and 'IDENT' eq $$tokens[$i + 4] and exists $$keywords{$$tokens[$i + 5]}) { } |
|
|
12 |
207 |
elsif ('FILTER' eq $tokens->[$i] and 'IDENT' eq $$tokens[$i + 2] and exists $$keywords{$$tokens[$i + 3]}) { } |
|
|
1 |
209 |
elsif (not $lplug_in and 'IDENT' eq $tokens->[$i] and exists $$keywords{$$tokens[$i + 1]}) { } |
|
191
|
9 |
3 |
if ($i) { } |
|
193
|
9 |
0 |
if ($$tokens[$i - 2] eq 'LITERAL') { } |
|
200
|
2 |
7 |
if (not defined $$tokens[4 + $i]) { } |
|
|
4 |
3 |
elsif ('FILTER' eq $$tokens[4 + $i] or 'DOT' eq $$tokens[4 + $i]) { } |
|
217
|
0 |
3 |
unless @$chunks |
|
219
|
0 |
3 |
if (ref $chunks->[0]) { } |
|
|
3 |
0 |
elsif ('TEXT' eq $chunks->[0]) { } |
|
220
|
0 |
0 |
if $chunks->[0][2] ne "ITEXT" |
|
251
|
0 |
26 |
if "(" ne $tokens[0] |
|
257
|
36 |
17 |
if ('LITERAL' eq $tokens[0]) { } |
|
|
8 |
9 |
elsif ('"' eq $tokens[0]) { } |
|
|
0 |
9 |
elsif ('NUMBER' eq $tokens[0]) { } |
|
|
9 |
0 |
elsif ('IDENT' eq $tokens[0]) { } |
|
|
0 |
0 |
elsif ('(' eq $tokens[0]) { } |
|
263
|
7 |
1 |
if ('TEXT' eq $tokens[2] and '"' eq $tokens[4] and 'COMMA' eq $tokens[6] || ')' eq $tokens[6]) { } |
|
274
|
0 |
10 |
if "COMMA" eq $tokens[0] |
|
275
|
1 |
9 |
if ")" eq $tokens[0] |
|
291
|
0 |
0 |
if ('(' eq $tokens[0]) { } |
|
|
0 |
0 |
elsif (')' eq $tokens[0]) { } |
|
297
|
0 |
0 |
unless ($nested) |
|
309
|
0 |
53 |
unless @tokens |
|
312
|
18 |
35 |
if ('COMMA' eq $next) { } |
|
|
9 |
52 |
elsif ('ASSIGN' eq $next and '=>' eq $tokens[0]) { } |
|
328
|
0 |
26 |
if ($keyword->plural) |
|
329
|
0 |
0 |
if $keyword->plural > $min_args |
|
333
|
9 |
17 |
if ($keyword->context) |
|
334
|
6 |
3 |
if $keyword->context > $min_args |
|
341
|
0 |
26 |
if $min_args > @args |
|
351
|
0 |
35 |
unless defined $args[$argno] |
|
352
|
1 |
34 |
if (ref $args[$argno]) |
|
354
|
1 |
0 |
if ref $args[$argno] |
|
363
|
3 |
22 |
if ($text =~ /^#/) |
|
367
|
3 |
3 |
unless $line =~ s/^[ \t\r\f\013]*#[ \t\r\f\013]?// |