| line |
true |
false |
branch |
|
144
|
20 |
572 |
if @_ |
|
163
|
572 |
0 |
if @_ == 1 |
|
165
|
336 |
236 |
if ($eos =~ /^(DONE|EOF)/) { } |
|
|
236 |
0 |
elsif ($eos =~ /^(DELIM|CLOSE) (.*)$/) { } |
|
169
|
236 |
0 |
$2 eq $self->{'Bounds'}[0] ? : |
|
186
|
340 |
343 |
if $fh->isa('IO::File') or $fh->isa('IO::Handle') |
|
187
|
343 |
0 |
if ref $fh eq 'GLOB' |
|
240
|
340 |
0 |
if ($n_in) { } |
|
241
|
340 |
0 |
if ($n_out) { } |
|
244
|
997 |
2329 |
if $normalize_newlines |
|
245
|
156 |
3170 |
if (substr($_, 0, 2) eq '--') |
|
247
|
141 |
15 |
if ($bh{$maybe}) |
|
249
|
166 |
828 |
if ($thx and $th{$_}) |
|
256
|
0 |
0 |
if $normalize_newlines |
|
257
|
0 |
0 |
if (substr($_, 0, 2) eq '--') |
|
259
|
0 |
0 |
if ($bh{$maybe}) |
|
261
|
0 |
0 |
if ($thx and $th{$_}) |
|
267
|
0 |
0 |
if ($n_out) { } |
|
270
|
0 |
0 |
if $normalize_newlines |
|
271
|
0 |
0 |
if (substr($_, 0, 2) eq '--') |
|
273
|
0 |
0 |
if ($bh{$maybe}) |
|
275
|
0 |
0 |
if ($thx and $th{$_}) |
|
282
|
0 |
0 |
if $normalize_newlines |
|
283
|
0 |
0 |
if (substr($_, 0, 2) eq '--') |
|
285
|
0 |
0 |
if ($bh{$maybe}) |
|
287
|
0 |
0 |
if ($thx and $th{$_}) |
|
296
|
125 |
215 |
if $eos =~ /^(DELIM|CLOSE)/ and not $keep_newline && $last =~ /^[\r\n]\z/ |
|
315
|
0 |
37 |
unless open my $fh, '>', \$data |