| line |
true |
false |
branch |
|
37
|
1 |
2 |
if ($$self{'current_compile'}{'in_main'} and not $$self{'allow_stray_content'} and $arg{'text'} =~ /\S/)
|
|
52
|
1 |
1 |
if ($$self{'current_compile'}{'in_main'} and not $$self{'allow_stray_content'} and not $arg{'line'} =~ /\A\s*#/)
|
|
71
|
0 |
0 |
if ($call =~ m[^[\w/.]])
|
|
74
|
0 |
0 |
if $comma == -1
|
|
76
|
0 |
0 |
if (defined $$self{'default_method_to_call'} and not $comp =~ /:/)
|
|
82
|
0 |
0 |
if $self->postprocess_perl
|
|
83
|
0 |
0 |
if $@
|
|
97
|
0 |
0 |
unless @{$$c{'comp_with_content_stack'};}
|
|
104
|
0 |
0 |
if ($call =~ m[^[\w/.]])
|
|
107
|
0 |
0 |
if $comma == -1
|
|
109
|
0 |
0 |
if (defined $$self{'default_method_to_call'} and not $comp =~ /:/)
|
|
114
|
0 |
0 |
if ($call_end)
|
|
115
|
0 |
0 |
unless ($call_end =~ m[^[\w/.]])
|
|
118
|
0 |
0 |
unless (defined $comp)
|
|
121
|
0 |
0 |
if ($call_end ne $comp)
|
|
128
|
0 |
0 |
if $self->postprocess_perl
|
|
129
|
0 |
0 |
if $@
|