| line |
true |
false |
branch |
|
144
|
20 |
696 |
if @_ |
|
163
|
696 |
0 |
if @_ == 1 |
|
165
|
404 |
292 |
if ($eos =~ /^(DONE|EOF)/) { } |
|
|
292 |
0 |
elsif ($eos =~ /^(DELIM|CLOSE) (.*)$/) { } |
|
169
|
292 |
0 |
$2 eq $self->{'Bounds'}[0] ? : |
|
186
|
442 |
401 |
if $fh->isa("IO::File") or $fh->isa("IO::Handle") |
|
187
|
401 |
0 |
if ref $fh eq "GLOB" |
|
240
|
420 |
0 |
if ($n_in) { } |
|
241
|
420 |
0 |
if ($n_out) { } |
|
244
|
1148 |
2418 |
if $normalize_newlines |
|
245
|
195 |
3371 |
if (substr($_, 0, 2) eq "--") |
|
247
|
175 |
20 |
if ($bh{$maybe}) |
|
249
|
200 |
945 |
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
|
159 |
261 |
if $eos =~ /^(DELIM|CLOSE)/ and not $keep_newline && $last =~ /^[\r\n]\z/ |
|
315
|
0 |
49 |
unless open my $fh, ">", \$data |