| line |
true |
false |
branch |
|
28
|
1 |
0 |
unless defined $opts{'INDENT_CONTENT'} |
|
50
|
0 |
1 |
defined $opts{'filter_add'} ? : |
|
|
1 |
0 |
if (defined $opts{'filter_add'} ? $opts{'filter_add'} : 1) |
|
111
|
1 |
56 |
if (not $status) { } |
|
|
8 |
48 |
elsif ($$self{'state'} == 2) { } |
|
113
|
0 |
1 |
if ($Filter::HereDocIndent::debug) |
|
120
|
2 |
6 |
if ($line =~ /^(\s*)$$self{'del_regex'}\s*$/) { } |
|
123
|
2 |
0 |
if ($$self{'INDENT_CONTENT'}) |
|
125
|
1 |
5 |
unless $el =~ s/^\s{$len}// |
|
126
|
0 |
6 |
if $el eq '' |
|
144
|
2 |
46 |
if ($line =~ /
^ # start of line
[^#]* # anything except a comment marker
<<
\s*
(
'[^']+'
|
"[^"]+"
|
\w+
)
[^'"]*
;
\s*
/sx) |
|
166
|
0 |
2 |
unless $$self{'del'} =~ s/^'(.*)'$/$1/ |
|
175
|
0 |
57 |
if $Filter::HereDocIndent::debug |