| line |
true |
false |
branch |
|
121
|
1 |
9 |
unless $tt->process($filename, {}, \$sink) |
|
137
|
0 |
10 |
unless my $chunks = $self->SUPER::split_text($text) |
|
141
|
9 |
1 |
unless defined $plug_in |
|
146
|
37 |
38 |
unless (ref $chunk) |
|
153
|
0 |
38 |
unless ref $tokens |
|
155
|
37 |
1 |
if ($lplug_in) { } |
|
156
|
9 |
28 |
if ('USE' eq $tokens->[0] and 'IDENT' eq $tokens->[2]) |
|
157
|
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]) { } |
|
168
|
0 |
28 |
unless defined $ident |
|
178
|
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]}) { } |
|
190
|
9 |
3 |
if ($i) { } |
|
192
|
9 |
0 |
if ($$tokens[$i - 2] eq 'LITERAL') { } |
|
199
|
2 |
7 |
if (not defined $$tokens[4 + $i]) { } |
|
|
4 |
3 |
elsif ('FILTER' eq $$tokens[4 + $i] or 'DOT' eq $$tokens[4 + $i]) { } |
|
216
|
0 |
3 |
unless @$chunks |
|
218
|
0 |
3 |
if (ref $chunks->[0]) { } |
|
|
3 |
0 |
elsif ('TEXT' eq $chunks->[0]) { } |
|
219
|
0 |
0 |
if $chunks->[0][2] ne 'ITEXT' |
|
250
|
0 |
26 |
if '(' ne $tokens[0] |
|
256
|
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]) { } |
|
262
|
7 |
1 |
if ('TEXT' eq $tokens[2] and '"' eq $tokens[4] and 'COMMA' eq $tokens[6] || ')' eq $tokens[6]) { } |
|
273
|
0 |
10 |
if 'COMMA' eq $tokens[0] |
|
274
|
1 |
9 |
if ')' eq $tokens[0] |
|
290
|
0 |
0 |
if ('(' eq $tokens[0]) { } |
|
|
0 |
0 |
elsif (')' eq $tokens[0]) { } |
|
296
|
0 |
0 |
unless ($nested) |
|
308
|
0 |
53 |
unless @tokens |
|
311
|
18 |
35 |
if ('COMMA' eq $next) { } |
|
|
9 |
52 |
elsif ('ASSIGN' eq $next and '=>' eq $tokens[0]) { } |
|
327
|
0 |
26 |
if ($keyword->plural) |
|
328
|
0 |
0 |
if $keyword->plural > $min_args |
|
332
|
9 |
17 |
if ($keyword->context) |
|
333
|
6 |
3 |
if $keyword->context > $min_args |
|
340
|
0 |
26 |
if $min_args > @args |
|
350
|
0 |
35 |
unless defined $args[$argno] |
|
351
|
1 |
34 |
if (ref $args[$argno]) |
|
353
|
1 |
0 |
if ref $args[$argno] |
|
362
|
3 |
22 |
if ($text =~ /^#/) |
|
366
|
3 |
3 |
unless $line =~ s/^[ \t\r\f\013]*#[ \t\r\f\013]?// |