| line |
true |
false |
branch |
|
144
|
20 |
583 |
if @_ |
|
163
|
583 |
0 |
if @_ == 1 |
|
165
|
342 |
241 |
if ($eos =~ /^(DONE|EOF)/) { } |
|
|
241 |
0 |
elsif ($eos =~ /^(DELIM|CLOSE) (.*)$/) { } |
|
169
|
241 |
0 |
$2 eq $self->{'Bounds'}[0] ? : |
|
186
|
349 |
348 |
if $fh->isa('IO::File') or $fh->isa('IO::Handle') |
|
187
|
348 |
0 |
if ref $fh eq 'GLOB' |
|
240
|
347 |
0 |
if ($n_in) { } |
|
241
|
347 |
0 |
if ($n_out) { } |
|
244
|
1011 |
2336 |
if $normalize_newlines |
|
245
|
159 |
3188 |
if (substr($_, 0, 2) eq '--') |
|
247
|
144 |
15 |
if ($bh{$maybe}) |
|
249
|
169 |
839 |
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
|
128 |
219 |
if $eos =~ /^(DELIM|CLOSE)/ and not $keep_newline && $last =~ /^[\r\n]\z/ |
|
315
|
0 |
38 |
unless open my $fh, '>', \$data |