| line |
true |
false |
branch |
|
35
|
2 |
7 |
unless $col_names |
|
36
|
0 |
7 |
unless ref $col_names eq 'ARRAY' |
|
37
|
0 |
7 |
unless scalar @$col_names |
|
39
|
0 |
20 |
unless $_ |
|
46
|
3 |
6 |
if $self->{'recs'} |
|
56
|
0 |
9 |
if $file =~ m[^http://|^ftp://] |
|
60
|
0 |
9 |
if ref $data eq 'ARRAY' and ref $data->[0] eq 'ARRAY' |
|
61
|
0 |
9 |
if ref $data eq 'ARRAY' and ref $data->[0] eq 'HASH' |
|
62
|
1 |
8 |
if ref $data eq 'ARRAY' and not $data_type |
|
66
|
0 |
9 |
if ($self->{'records'} and not $data) { } |
|
|
3 |
6 |
elsif ($data) { } |
|
73
|
0 |
3 |
if ($parser->{'slurp_mode'}) { } |
|
75
|
0 |
0 |
if ref($parser) =~ /HTMLtable/ and $url and $cols_supplied |
|
78
|
1 |
2 |
if ($data_type eq 'ARY-STR') |
|
81
|
0 |
3 |
if ($data_type eq 'ARY-ARY') { } |
|
|
0 |
3 |
elsif ($data_type eq 'ARY-HSH') { } |
|
92
|
0 |
3 |
if (ref($parser) =~ /Fixed/ and not $col_names && scalar @$col_names) |
|
97
|
0 |
3 |
if (ref($parser) =~ /Paragraph/) |
|
105
|
0 |
14 |
if $parser->{'skip_pattern'} and $line =~ /$parser->{'skip_pattern'}/ |
|
118
|
2 |
0 |
unless (ref($parser) =~ /Fixed|Paragraph/ or $parser->{'keep_first_line'} or $parser->{'col_names'}) |
|
128
|
9 |
0 |
unless (ref($parser) =~ /XML/) |
|
129
|
9 |
0 |
if defined $table_ary |
|
130
|
1 |
8 |
if ($file and not ref $file eq 'ARRAY' and not $size) |
|
131
|
0 |
1 |
if ($file =~ m[^http://|ftp://]) { } |
|
141
|
9 |
0 |
if ref $col_names eq 'ARRAY' |
|
143
|
0 |
9 |
if ($col_names and scalar @array == 0) |
|
144
|
0 |
0 |
ref $parser =~ /Fixed/ ? : |
|
149
|
9 |
0 |
if $col_names |
|
170
|
0 |
0 |
unless defined $ENV |
|
177
|
0 |
0 |
if $@ |
|
180
|
0 |
0 |
if $user and $pass |
|
182
|
0 |
0 |
unless $res->is_success |
|
191
|
0 |
0 |
unless $parser->{'export_on_close'} and $self->{'open_mode'} ne 'r' |
|
214
|
1 |
0 |
if 'co' =~ /$open_mode/ |
|
223
|
0 |
0 |
unless $str |
|
269
|
0 |
256 |
unless $self->{'records'} |
|
270
|
34 |
222 |
if $currentRow >= @{$self->{'records'};} |
|
285
|
36 |
6 |
unless (ref $fields) |
|
326
|
0 |
36 |
unless defined $self->{'records'} |
|
328
|
0 |
36 |
if ($whence == 0) { } |
|
|
0 |
36 |
elsif ($whence == 1) { } |
|
|
36 |
0 |
elsif ($whence == 2) { } |
|
337
|
0 |
36 |
if ($currentRow < 0) |