| line |
true |
false |
branch |
|
84
|
0 |
557 |
unless (defined $line) |
|
103
|
307 |
250 |
if (_state() eq $marker{'source'}) |
|
106
|
48 |
259 |
if (_is_ingress($line)) |
|
120
|
4 |
55 |
if (_is_comment($tmpdelim)) |
|
139
|
7 |
48 |
if ($final_delimiter ne $subdelimiter) { } |
|
180
|
48 |
202 |
if (_state() eq $marker{'ingress'}) |
|
181
|
48 |
0 |
if (not _is_ingress($line)) { } |
|
205
|
148 |
54 |
if (_state() eq $marker{'heredoc'}) |
|
207
|
54 |
94 |
if (_is_egress($line)) |
|
240
|
54 |
0 |
if (_state() eq $marker{'egress'}) |
|
245
|
47 |
7 |
if ($fifolength == 0) |
|
256
|
0 |
7 |
if ($fifolength != 0 and _is_egress($line)) { } |
|
291
|
2183 |
1 |
unless exists $arg{'source'} |
|
292
|
2183 |
1 |
unless exists $arg{'ingress'} |
|
293
|
2183 |
1 |
unless exists $arg{'heredoc'} |
|
294
|
2183 |
1 |
unless exists $arg{'egress'} |
|
355
|
0 |
414 |
unless (defined($line = shift())) |
|
363
|
86 |
328 |
if (index($line, '#') == 0) |
|
380
|
273 |
82 |
unless (_is_comment($line)) |
|
382
|
52 |
221 |
if ($line =~ /<
|
|
385
|
4 |
48 |
unless (_hd_is_rules_ok_line($line)) |
|
422
|
0 |
155 |
if ($nextoutdelimiter eq $EMPTY_STR) |
|
427
|
17 |
138 |
if (not defined $linefield[0]) { } |
|
|
54 |
84 |
elsif ($nextoutdelimiter eq $linefield[0]) { } |
|
470
|
558 |
1064 |
if defined $newstate |
|
505
|
7 |
48 |
if ($line =~ /^-(.*)/) |
|
530
|
111 |
718 |
if (not $copyoutfromfifo) { } |
|
533
|
55 |
56 |
if (defined $delimiter) { } |
|
540
|
55 |
1 |
if (defined(my $tmp = shift @terminators)) { } |
|
553
|
718 |
0 |
if ($delimiter eq $EMPTY_STR) |
|
556
|
365 |
353 |
if (defined($nextelementout = shift @terminators)) { } |
|
588
|
111 |
408 |
if (not $copyoutfromfifo) { } |
|
591
|
55 |
56 |
if (defined $istabremoveflag) { } |
|
598
|
55 |
1 |
if (defined(my $tmp = shift @tabremovals)) { } |
|
611
|
408 |
0 |
if ($istabremoveflag eq $EMPTY_STR) |
|
614
|
149 |
259 |
if (defined($nextelementout = shift @tabremovals)) { } |
|
641
|
0 |
55 |
unless (defined $line) |
|
649
|
47 |
8 |
unless ($line =~ /$regexpipe/) |
|
654
|
8 |
0 |
if ($line =~ /$regexcapture/) |