| line |
true |
false |
branch |
|
23
|
1 |
15 |
if ($opt{'record_separator'}) |
|
27
|
6 |
10 |
if ($opt{'file'}) |
|
36
|
10 |
18 |
if (@_) |
|
37
|
1 |
9 |
ref $_[0] eq 'ARRAY' ? : |
|
40
|
26 |
2 |
if ($$self{'file'}) { } |
|
41
|
8 |
18 |
wantarray ? : |
|
50
|
4 |
7 |
if (@_) |
|
51
|
4 |
0 |
if $_[0] |
|
58
|
7 |
19 |
if (@_) |
|
60
|
0 |
7 |
unless $$self{'_filehandle'} = 'IO::File'->new(@args) |
|
65
|
5 |
21 |
unless ($$self{'_filehandle'}) |
|
73
|
1 |
7 |
if (@_) |
|
76
|
7 |
1 |
if ($self->file) { } |
|
78
|
4 |
3 |
if ($$self{'autodetect'}) |
|
79
|
3 |
1 |
if ($self->_filehandle->seek(-2, 2)) |
|
82
|
1 |
2 |
if ($buffer eq "\r\n") { } |
|
|
1 |
1 |
elsif ($buffer =~ /\012$/) { } |
|
|
1 |
0 |
elsif ($buffer =~ /\015$/) { } |
|
104
|
0 |
0 |
if ($self->_filehandle->eof) |
|
112
|
0 |
0 |
if ($$self{'_need_more'}) { } |
|
113
|
0 |
0 |
if ($$self{'_need_more'} > 8) { } |
|
124
|
0 |
0 |
if $line =~ /^\s*$/ |
|
129
|
0 |
0 |
if ($$self{'debug'} > 1) |
|
134
|
0 |
0 |
if ($data[0] =~ /^!(.*)$/) { } |
|
|
0 |
0 |
elsif ($data[0] eq $$self{'header'}) { } |
|
147
|
0 |
0 |
if ($num_dat < $num_hdr - 1) { } |
|
|
0 |
0 |
elsif ($num_dat > $num_hdr) { } |
|
169
|
0 |
0 |
defined $data[$i] ? : |
|
179
|
0 |
0 |
if ($continue) { } |
|
193
|
0 |
0 |
if ($line =~ /^"(.*?)(?:[^\\]["])[$sep](.*)/s) { } |
|
|
0 |
0 |
elsif ($line =~ /^([^$sep]+)[$sep](.*)/s) { } |
|
|
0 |
0 |
elsif ($line =~ /^[$sep](.*)/s) { } |
|
|
0 |
0 |
elsif ($line =~ /^"(.*?)(?:[^\\]["])$/s) { } |
|
|
0 |
0 |
elsif ($line =~ /^(.+)$/s) { } |
|
194
|
0 |
0 |
if $$self{'debug'} > 2 |
|
199
|
0 |
0 |
if $$self{'debug'} > 2 |
|
204
|
0 |
0 |
if $$self{'debug'} > 2 |
|
209
|
0 |
0 |
if $$self{'debug'} > 2 |
|
214
|
0 |
0 |
if $$self{'debug'} > 2 |
|
219
|
0 |
0 |
if $$self{'debug'} > 2 |