| line |
true |
false |
branch |
|
35
|
1 |
0 |
if @_ |
|
36
|
1 |
0 |
unless $use_connector |
|
41
|
0 |
0 |
if @_ |
|
42
|
0 |
0 |
unless $use_connector |
|
50
|
0 |
3 |
if &$predicate($_) |
|
|
0 |
3 |
if (eval {
do {
1 if &$predicate($_)
}
}) { } |
|
63
|
0 |
3 |
unless $use_config |
|
65
|
0 |
3 |
if ($config) |
|
70
|
0 |
0 |
exists $ENV{$_} ? : |
|
|
0 |
3 |
$mswin ? : |
|
73
|
0 |
3 |
$mswin ? : |
|
75
|
3 |
0 |
if $config_file |
|
89
|
1 |
0 |
unless ($local_dbc) |
|
90
|
0 |
1 |
if $use_config and keys %config == 0 |
|
93
|
0 |
1 |
unless $databases |
|
95
|
0 |
1 |
if exists $$databases{$alias} and $mode |
|
96
|
1 |
0 |
if exists $$databases{$db_alias} |
|
98
|
0 |
1 |
$use_connector ? : |
|
99
|
0 |
1 |
if $use_connector |
|
102
|
0 |
1 |
if $keep_default |
|
107
|
0 |
0 |
unless $dbc |
|
108
|
0 |
0 |
$use_connector ? : |
|
112
|
0 |
1 |
if $db_alias |
|
118
|
0 |
0 |
$use_connector ? : |
|
119
|
0 |
0 |
unless ($local_dbc) |
|
121
|
0 |
0 |
if ($db_alias) |
|
135
|
0 |
0 |
if ($use_connector) { } |
|
140
|
0 |
0 |
unless my $err = $@ |
|
141
|
0 |
0 |
if $err |
|
142
|
0 |
0 |
unless ($executed) |
|
152
|
0 |
0 |
if (@$r and @{$$r[0];} == 1) |
|
155
|
0 |
0 |
wantarray ? : |
|
160
|
0 |
0 |
$use_connector ? : |
|
161
|
0 |
0 |
looks_like_number $_ ? : |
|
169
|
0 |
0 |
wantarray ? : |
|
176
|
0 |
0 |
unless $hash |
|
177
|
0 |
0 |
wantarray ? : |
|
185
|
0 |
0 |
wantarray ? : |
|
197
|
0 |
0 |
@$_ > 1 ? : |
|
199
|
0 |
0 |
unless @r |
|
200
|
0 |
0 |
if ($wantresult) |
|
204
|
0 |
0 |
unless $wantresult |
|
205
|
0 |
0 |
wantarray ? : |
|
214
|
0 |
0 |
$use_connector ? : |
|
215
|
0 |
0 |
if ($use_sqlsplit) { } |
|
222
|
0 |
0 |
unless eval {
do {
foreach my $statement (@$statements) {
my $placeholders_count = shift @$placeholders;
my(@sbind_values) = splice(@bind_values, 0, $placeholders_count);
$rows_affected += $dbh->do($statement, $attr, @sbind_values);
} ;
$dbh->commit unless $no_commit;
1
}
} |
|
228
|
0 |
0 |
unless $no_commit |
|
241
|
0 |
0 |
unless $sprintf_sql =~ /%s/ |
|
251
|
0 |
0 |
$use_connector ? : |
|
254
|
0 |
0 |
unless eval {
do {
while ($offset <= $last) {
my $limit = $offset + $step - 1;
$limit = $last if $limit > $last;
my $records = join("\nunion all\n", map(sprintf('select %s', ref $_ eq 'ARRAY' ? join(',', map($dbh->quote($_), @$_)) : $_), @{$data;}[$offset .. $limit]));
$offset += $step;
sleep $delay if $updated;
my $time = time;
my $sql = sprintf($sprintf_sql, $records);
$updated += $dbh->do($sql);
$delay = (time - $time) * 2 unless exists $opts{'delay'};
} ;
$dbh->commit;
1
}
} |
|
257
|
0 |
0 |
if $limit > $last |
|
264
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
266
|
0 |
0 |
if $updated |
|
271
|
0 |
0 |
unless exists $opts{'delay'} |