| line |
true |
false |
branch |
|
70
|
1 |
10 |
if ($self->{'current_compile'}{'in_main'} and not $self->{'allow_stray_content'} and $arg{'text'} =~ /\S/)
|
|
85
|
1 |
3 |
if ($self->{'current_compile'}{'in_main'} and not $self->{'allow_stray_content'} and not $arg{'line'} =~ /\A\s*#/)
|
|
104
|
11 |
0 |
if ($call =~ m[^[\w/.]])
|
|
107
|
11 |
0 |
if $comma == -1
|
|
109
|
2 |
9 |
if (defined $self->{'default_method_to_call'} and not $comp =~ /:/)
|
|
115
|
0 |
11 |
if $self->postprocess_perl
|
|
116
|
0 |
11 |
if $@
|
|
130
|
0 |
2 |
unless @{$c->{'comp_with_content_stack'};}
|
|
137
|
2 |
0 |
if ($call =~ m[^[\w/.]])
|
|
140
|
2 |
0 |
if $comma == -1
|
|
142
|
1 |
1 |
if (defined $self->{'default_method_to_call'} and not $comp =~ /:/)
|
|
147
|
0 |
2 |
if ($call_end)
|
|
148
|
0 |
0 |
unless ($call_end =~ m[^[\w/.]])
|
|
151
|
0 |
0 |
unless (defined $comp)
|
|
154
|
0 |
0 |
if ($call_end ne $comp)
|
|
161
|
0 |
2 |
if $self->postprocess_perl
|
|
162
|
0 |
2 |
if $@
|