| line |
true |
false |
branch |
|
24
|
6 |
2 |
$start ? : |
|
44
|
3 |
0 |
if $path and $path ne $os_cur_dir |
|
45
|
0 |
0 |
unless ($haspath or $file =~ /^$open_table_re/o) |
|
70
|
0 |
3 |
unless ($valid_mode{$open_mode}) |
|
78
|
0 |
3 |
if ($open_mode eq 'c') |
|
79
|
0 |
0 |
if (-f $file) |
|
83
|
1 |
2 |
if ($open_mode =~ /[co]/) |
|
84
|
0 |
1 |
unless ($fh = 'IO::File'->new($file, $mode{$open_mode})) |
|
87
|
0 |
1 |
unless ($fh->seek(0, 0)) |
|
91
|
2 |
1 |
if ($open_mode =~ /[ru]/) |
|
92
|
0 |
2 |
unless -f $file |
|
93
|
0 |
2 |
unless ($fh = 'IO::File'->new($file, $mode{$open_mode})) |
|
100
|
2 |
1 |
if ($open_mode eq 'r') { } |
|
101
|
0 |
2 |
unless (flock $fh, 1) |
|
105
|
0 |
1 |
unless (flock $fh, 2) |
|
110
|
0 |
3 |
if $AnyData::Storage::File::DEBUG |
|
111
|
2 |
1 |
if wantarray |
|
118
|
0 |
0 |
unless scalar @$fields |
|
120
|
0 |
0 |
if $parser->{'keep_first_line'} |
|
127
|
0 |
0 |
if ref($parser) =~ /Fixed/ |
|
135
|
1 |
1 |
if ($parser->{'keep_first_line'}) |
|
137
|
0 |
1 |
unless $cols |
|
138
|
1 |
0 |
if ref $cols eq 'ARRAY' |
|
142
|
0 |
0 |
scalar @fields ? : |
|
146
|
1 |
0 |
if $fh |
|
149
|
1 |
0 |
if ($first_line) |
|
150
|
1 |
0 |
ref($parser) =~ /Fixed/ ? : |
|
160
|
0 |
1 |
if join($", @fields) =~ /[^ a-zA-Z0-9_]/ |
|
171
|
0 |
2 |
if ($file =~ m[http://|ftp://]) { } |
|
176
|
2 |
0 |
if $file and not ref $file |
|
186
|
1 |
1 |
ref $col_names eq 'ARRAY' ? : |
|
190
|
2 |
0 |
if $fh |
|
203
|
2 |
0 |
if (not $skip and defined $newfile) |
|
204
|
0 |
2 |
$open_mode =~ /[co]/ ? : |
|
229
|
0 |
3 |
unless $col_names |
|
232
|
0 |
13 |
unless $_ |
|
241
|
0 |
0 |
if (not $self->{'fh'}->truncate($self->{'fh'}->tell)) |
|
250
|
0 |
0 |
unless $self->{'fh'}->close |
|
251
|
0 |
0 |
unless unlink $self->{'file'} |
|
254
|
0 |
0 |
unless (shift())->{'fh'}->close |
|
261
|
0 |
0 |
unless $fh->write($rec, length $rec) |
|
283
|
0 |
0 |
if ($whence == 0 and $pos == 0) { } |
|
|
0 |
0 |
elsif ($whence != 2 or $pos != 0) { } |
|
288
|
0 |
0 |
if (not $self->{'fh'}->seek($pos, $whence)) |
|
297
|
0 |
2 |
if $fh and $AnyData::Storage::File::DEBUG |
|
298
|
2 |
2 |
if $fh |