| line |
true |
false |
branch |
|
30
|
0 |
956 |
defined $$self{'current'}{'pos'} ? : |
|
34
|
152 |
804 |
if $end = $self->match_end |
|
36
|
84 |
718 |
if $self->match_block |
|
38
|
48 |
668 |
if $self->match_named_block |
|
40
|
115 |
553 |
if $self->match_substitute |
|
42
|
62 |
491 |
if $self->match_code_tag |
|
44
|
3 |
488 |
if $self->match_comment_tag |
|
46
|
43 |
445 |
if $self->match_comp_call |
|
48
|
1 |
444 |
if $self->match_perl_line |
|
50
|
19 |
425 |
if $self->match_comp_content_call |
|
52
|
19 |
406 |
if $self->match_comp_content_call_end |
|
54
|
406 |
0 |
if $self->match_text |
|
56
|
0 |
0 |
if ($$self{'current'}{'in_def'} || $$self{'current'}{'in_method'} and $$self{'current'}{'comp_source'} =~ /\G\z/) |
|
59
|
0 |
0 |
$$self{'current'}{'in_def'} ? : |
|
67
|
48 |
104 |
if ($$self{'current'}{'in_def'} or $$self{'current'}{'in_method'}) |
|
69
|
12 |
36 |
$$self{'current'}{'in_def'} ? : |
|
70
|
0 |
48 |
unless ($end =~ m[\n?]i) |
|
83
|
115 |
553 |
if ($$self{'current'}{'comp_source'} =~ /\G<%=/cgs) |
|
85
|
115 |
0 |
if ($$self{'current'}{'comp_source'} =~ /\G(.+?)(\s*\|\s*([\w\s,]+)?\s*)?%>/cgis) { } |
|
92
|
13 |
102 |
if $2 |
|
113
|
62 |
491 |
if ($$self{'current'}{'comp_source'} =~ /\G<%(?![=|&-])/cgs) |
|
115
|
62 |
0 |
if ($$self{'current'}{'comp_source'} =~ /\G(.+?)%>/cgs) { } |
|
137
|
3 |
488 |
if ($$self{'current'}{'comp_source'} =~ /\G<%--/cgs) |
|
139
|
3 |
0 |
if ($$self{'current'}{'comp_source'} =~ /\G(.*?)--%>/cgs) { } |
|
161
|
440 |
5 |
unless $$self{'perl_lines'} |