| line |
true |
false |
branch |
|
22
|
3 |
2 |
if exists $args{'-path'} |
|
23
|
4 |
1 |
if exists $args{'-target'} |
|
24
|
0 |
5 |
if exists $args{'-url'} |
|
25
|
0 |
5 |
if exists $args{'-verbose'} |
|
26
|
0 |
5 |
if exists $args{'-callback'} |
|
28
|
4 |
1 |
if ($self->{'-target'} =~ /(\w+)$/) |
|
32
|
2 |
3 |
if ($self->{'-ext'} ne 'sqlite' and $self->{'-ext'} ne 'csv') |
|
36
|
1 |
2 |
unless (-d $self->{'-path'}) |
|
47
|
0 |
0 |
if (-e $self->{'-xls'}) |
|
48
|
0 |
0 |
if $self->{'-verbose'} |
|
65
|
0 |
0 |
unless $response->{'success'} |
|
67
|
0 |
0 |
if (length $response->{'content'}) |
|
68
|
0 |
0 |
unless open my $fhz, '>', $zip_filename |
|
73
|
0 |
0 |
if $self->{'-verbose'} |
|
76
|
0 |
0 |
if $self->{'-verbose'} |
|
78
|
0 |
0 |
-e $self->{'-xls'} ? : |
|
89
|
0 |
0 |
if ($self->{'-ext'} eq 'sqlite') { } |
|
|
0 |
0 |
elsif ($self->{'-ext'} eq 'csv') { } |
|
109
|
0 |
0 |
if ($self->download) |
|
121
|
0 |
0 |
unless my $u = 'IO::Uncompress::Unzip'->new($zipfile) |
|
127
|
0 |
0 |
unless $name =~ /$regexpr_file_to_extract/ |
|
130
|
0 |
0 |
unless open my $fh, '>', $xlsfile |
|
140
|
0 |
0 |
$filename ? : |
|
149
|
0 |
0 |
if $self->{'-verbose'} |
|
150
|
0 |
0 |
if -e $self->{'-dbfile'} |
|
152
|
0 |
0 |
unless my $dbh = 'DBI'->connect('dbi:SQLite:dbname=' . $self->{'-dbfile'}, '', '', {'RaiseError', 1, 'AutoCommit', 0}) |
|
167
|
0 |
0 |
if $self->{'-verbose'} |
|
168
|
0 |
0 |
if -e $self->{'-dbfile'} |
|
182
|
0 |
0 |
unless my $dbh = 'DBI'->connect('dbi:CSV:', '', '', {'f_schema', undef, 'f_dir', $self->{'-path'}, 'f_encoding', 'utf8', 'csv_eol', "\n", 'csv_sep_char', ',', 'csv_quote_char', '"', 'csv_escape_char', '"', 'csv_class', 'Text::CSV_XS', 'csv_null', 1, 'csv_always_quote', 1, 'csv_tables', {'elo_feda', {'f_file', $self->{'-target'}}}, 'RaiseError', 1, 'AutoCommit', 1}) |
|
207
|
0 |
0 |
if $self->{'-verbose'} |
|
211
|
0 |
0 |
unless my $workbook = $parser->parse($self->{'-xls'}) |
|
225
|
0 |
0 |
$cell ? : |
|
236
|
0 |
0 |
if ($apellidos and $nombre) { } |
|
|
0 |
0 |
elsif (index($name, '.') >= 0) { } |
|
|
0 |
0 |
elsif ($apellidos) { } |
|
261
|
0 |
0 |
if $callback |
|
263
|
0 |
0 |
if ($@) |
|
264
|
0 |
0 |
if $verbose |
|
276
|
0 |
0 |
unless $dbh->{'AutoCommit'} |
|
278
|
0 |
0 |
$i + $BLOCK_TXN - 1 > $row_max ? : |