| line |
true |
false |
branch |
|
22
|
4 |
2 |
if exists $args{'-folder'} |
|
23
|
5 |
1 |
if exists $args{'-target'} |
|
24
|
0 |
6 |
if exists $args{'-url'} |
|
25
|
0 |
6 |
if exists $args{'-verbose'} |
|
26
|
0 |
6 |
if exists $args{'-callback'} |
|
28
|
4 |
2 |
if ($self->{'-target'} and $self->{'-target'} =~ /(\w+)$/) |
|
32
|
3 |
3 |
if ($self->{'-ext'} ne 'sqlite' and $self->{'-ext'} ne 'csv') |
|
33
|
1 |
2 |
if ($self->{'-target'}) { } |
|
41
|
2 |
3 |
unless (-d $self->{'-path'}) |
|
52
|
0 |
0 |
if (-e $self->{'-xls'}) |
|
53
|
0 |
0 |
if $self->{'-verbose'} |
|
70
|
0 |
0 |
unless $response->{'success'} |
|
72
|
0 |
0 |
if (length $response->{'content'}) |
|
73
|
0 |
0 |
unless open my $fhz, '>', $zip_filename |
|
78
|
0 |
0 |
if $self->{'-verbose'} |
|
81
|
0 |
0 |
if $self->{'-verbose'} |
|
83
|
0 |
0 |
-e $self->{'-xls'} ? : |
|
94
|
0 |
0 |
if ($self->{'-ext'} eq 'NULL') { } |
|
|
0 |
0 |
elsif ($self->{'-ext'} eq 'sqlite') { } |
|
|
0 |
0 |
elsif ($self->{'-ext'} eq 'csv') { } |
|
117
|
0 |
0 |
if ($self->download) |
|
129
|
0 |
0 |
unless my $u = 'IO::Uncompress::Unzip'->new($zipfile) |
|
135
|
0 |
0 |
unless $name =~ /$regexpr_file_to_extract/ |
|
138
|
0 |
0 |
unless open my $fh, '>', $xlsfile |
|
148
|
0 |
0 |
$filename ? : |
|
156
|
0 |
0 |
if $self->{'-verbose'} |
|
168
|
0 |
0 |
if $self->{'-verbose'} |
|
169
|
0 |
0 |
if -e $self->{'-dbfile'} |
|
171
|
0 |
0 |
unless my $dbh = 'DBI'->connect('dbi:SQLite:dbname=' . $self->{'-dbfile'}, '', '', {'RaiseError', 1, 'AutoCommit', 0}) |
|
186
|
0 |
0 |
if $self->{'-verbose'} |
|
187
|
0 |
0 |
if -e $self->{'-dbfile'} |
|
201
|
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}) |
|
215
|
0 |
0 |
if $dbh |
|
226
|
0 |
0 |
if $self->{'-verbose'} |
|
230
|
0 |
0 |
unless my $workbook = $parser->parse($self->{'-xls'}) |
|
244
|
0 |
0 |
$cell ? : |
|
253
|
0 |
0 |
if ($apellidos and $nombre) { } |
|
|
0 |
0 |
elsif (index($name, '.') >= 0) { } |
|
|
0 |
0 |
elsif ($apellidos) { } |
|
277
|
0 |
0 |
if $stmt |
|
278
|
0 |
0 |
if $callback |
|
280
|
0 |
0 |
if ($@) |
|
281
|
0 |
0 |
if $verbose |
|
290
|
0 |
0 |
$dbh ? : |
|
296
|
0 |
0 |
if ($dbh and not $dbh->{'AutoCommit'}) |
|
297
|
0 |
0 |
unless $dbh->{'AutoCommit'} |
|
300
|
0 |
0 |
$i + $BLOCK_TXN - 1 > $row_max ? : |
|
303
|
0 |
0 |
if $stmt |