| line |
true |
false |
branch |
|
28
|
1 |
0 |
unless defined $opts{'INDENT_CONTENT'} |
|
53
|
0 |
1 |
defined $opts{'filter_add'} ? : |
|
|
1 |
0 |
if (defined $opts{'filter_add'} ? $opts{'filter_add'} : 1) |
|
117
|
1 |
61 |
if (not $status) { } |
|
|
8 |
53 |
elsif ($$self{'state'} == 2) { } |
|
119
|
0 |
1 |
if ($Filter::HereDocIndent::debug) |
|
126
|
2 |
6 |
if ($line =~ /^(\s*)$$self{'del_regex'}\s*$/) { } |
|
129
|
2 |
0 |
if ($$self{'INDENT_CONTENT'}) |
|
131
|
1 |
5 |
unless $el =~ s/^\s{$len}// |
|
132
|
0 |
6 |
if $el eq '' |
|
147
|
0 |
2 |
if ($$self{'NWS'}) |
|
165
|
2 |
51 |
if ($line =~ /
^ # start of line
[^#]* # anything except a comment marker
<<
\s*
(
'[^']+'
|
"[^"]+"
|
\w+
)
[^'"]*
;
\s*
/sx) |
|
187
|
0 |
2 |
unless $$self{'del'} =~ s/^'(.*)'$/$1/ |
|
196
|
0 |
62 |
if $Filter::HereDocIndent::debug |