| line |
true |
false |
branch |
|
73
|
547 |
0 |
if ref $p{'comp_source'} |
|
93
|
2 |
545 |
if taint_is_on() |
|
119
|
643 |
2656 |
if $end = $self->match_end |
|
121
|
263 |
2391 |
if $self->match_block |
|
123
|
113 |
2271 |
if $self->match_named_block |
|
125
|
387 |
1881 |
if $self->match_substitute |
|
127
|
216 |
1665 |
if $self->match_comp_call |
|
129
|
395 |
1270 |
if $self->match_perl_line |
|
131
|
39 |
1231 |
if $self->match_comp_content_call |
|
133
|
33 |
1192 |
if $self->match_comp_content_call_end |
|
135
|
1192 |
0 |
if $self->match_text |
|
137
|
0 |
0 |
if ($self->{'current'}{'in_def'} || $self->{'current'}{'in_method'} and $self->{'current'}{'comp_source'} =~ /\G\z/) |
|
140
|
0 |
0 |
$self->{'current'}{'in_def'} ? : |
|
144
|
0 |
0 |
if $self->{'current'}{'comp_source'} =~ /\G\z/ |
|
150
|
113 |
530 |
if ($self->{'current'}{'in_def'} or $self->{'current'}{'in_method'}) |
|
152
|
55 |
58 |
$self->{'current'}{'in_def'} ? : |
|
153
|
0 |
113 |
unless ($end =~ m[\n?]i) |
|
167
|
265 |
2391 |
if ($self->{'current'}{'comp_source'} =~ /\G<%($blocks_re)>/cgis) |
|
190
|
163 |
4 |
if $nl |
|
254
|
85 |
0 |
if (defined $1 and defined $2 and length $1 and length $2) |
|
263
|
131 |
56 |
if $4 |
|
268
|
48 |
3 |
if $nl |
|
301
|
62 |
0 |
if (defined $1 and defined $2 and length $1 and length $2) |
|
314
|
44 |
1 |
if $nl |
|
323
|
167 |
98 |
$p->{'allow_text'} ? : |
|
325
|
263 |
2 |
if ($self->{'current'}{'comp_source'} =~ /$re/cg) { } |
|
327
|
167 |
96 |
$p->{'allow_text'} ? : |
|
339
|
120 |
2271 |
if ($self->{'current'}{'comp_source'} =~ /\G<%(def|method)(?:\s+([^\n]+?))?\s*>/cgis) |
|
343
|
1 |
119 |
unless defined $name and length $name |
|
374
|
1881 |
390 |
unless $self->{'current'}{'comp_source'} =~ /\G<%/cgs |
|
376
|
387 |
3 |
if ($self->{'current'}{'comp_source'} =~ /
\G
(.+?) # Substitution body ($1)
(
\s*
(? # Closing tag
/cgisx) { } |
|
410
|
216 |
1665 |
if ($self->{'current'}{'comp_source'} =~ /\G<&(?!\|)/cgs) |
|
412
|
216 |
0 |
if ($self->{'current'}{'comp_source'} =~ /\G(.*?)&>/cgs) { } |
|
432
|
39 |
1231 |
if ($self->{'current'}{'comp_source'} =~ /\G<&\|/cgs) |
|
434
|
39 |
0 |
if ($self->{'current'}{'comp_source'} =~ /\G(.*?)&>/cgs) { } |
|
453
|
39 |
1192 |
if ($self->{'current'}{'comp_source'} =~ m[\G]cgs) |
|
467
|
395 |
1270 |
if ($self->{'current'}{'comp_source'} =~ /\G(?<=^)%([^\n]*)(?:\n|\z)/cgm) |
|
485
|
1192 |
0 |
if ($c->{'comp_source'} =~ m[
\G
(.*?) # anything, followed by:
(
(?<=\n)(?=%) # an eval line - consume the \n
|
(?=
|
|
504
|
1131 |
61 |
if length $1 |
|
521
|
643 |
2656 |
if ($self->{'current'}{'comp_source'} =~ /($self->{'current'}{'ending'})/cgs) |
|
524
|
113 |
530 |
defined $1 && length $1 ? : |
|
541
|
16 |
3 |
substr($self->{'current'}{'comp_source'}, pos $self->{'current'}{'comp_source'}, 1) eq "\n" ? : |
|
|
0 |
19 |
defined $pos ? : |
|
545
|
15 |
4 |
index($self->{'current'}{'comp_source'}, "\n", $pos) != -1 ? : |