| 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) |
|
64
|
5 |
21 |
unless ($$self{'_filehandle'}) |
|
72
|
1 |
7 |
if (@_) |
|
75
|
7 |
1 |
if ($self->file) { } |
|
77
|
4 |
3 |
if ($$self{'autodetect'}) |
|
78
|
3 |
1 |
if ($self->_filehandle->seek(-2, 2)) |
|
81
|
1 |
2 |
if ($buffer eq "\r\n") { } |
|
|
1 |
1 |
elsif ($buffer =~ /\n$/) { } |
|
|
1 |
0 |
elsif ($buffer =~ /\r$/) { } |
|
103
|
0 |
0 |
if ($self->_filehandle->eof) |
|
108
|
0 |
0 |
if $line =~ /^\s*$/ |
|
111
|
0 |
0 |
if ($$self{'debug'} > 1) |
|
116
|
0 |
0 |
if ($data[0] =~ /^!(.*)$/) { } |
|
|
0 |
0 |
elsif ($data[0] eq $$self{'header'}) { } |
|
130
|
0 |
0 |
if ($num_dat < $num_hdr - 1) { } |
|
147
|
0 |
0 |
defined $data[$i] ? : |
|
157
|
0 |
0 |
if ($continue) { } |
|
171
|
0 |
0 |
if ($line =~ /^"(.*?)(?:[^\\]["])[$sep](.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^([^$sep]+)[$sep](.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^[$sep](.*)/) { } |
|
|
0 |
0 |
elsif ($line =~ /^"(.*?)(?:[^\\]["])$/) { } |
|
|
0 |
0 |
elsif ($line =~ /^(.+)$/) { } |
|
172
|
0 |
0 |
if $$self{'debug'} > 2 |
|
177
|
0 |
0 |
if $$self{'debug'} > 2 |
|
182
|
0 |
0 |
if $$self{'debug'} > 2 |
|
187
|
0 |
0 |
if $$self{'debug'} > 2 |
|
192
|
0 |
0 |
if $$self{'debug'} > 2 |
|
197
|
0 |
0 |
if $$self{'debug'} > 2 |