| line |
true |
false |
branch |
|
17
|
1 |
2 |
if exists $param{-'dbh'} and $param{-'dbh'} |
|
18
|
1 |
2 |
if (exists $param{-'connector'} and my $cname = delete $param{-'connector'}) |
|
19
|
1 |
0 |
if "$cname" eq '1' |
|
23
|
0 |
1 |
if (@_) |
|
24
|
0 |
0 |
@_ > 1 ? : |
|
29
|
1 |
0 |
if (exists $param{-'dbh'} and my $hname = delete $param{-'dbh'}) |
|
30
|
1 |
0 |
if "$hname" eq '1' |
|
33
|
0 |
0 |
if (@_) |
|
34
|
0 |
0 |
@_ > 1 ? : |
|
37
|
0 |
0 |
if defined $$self{$hname} and $$self{$hname}->ping |
|
44
|
0 |
3 |
if (%param and %{$pkg->Defaults;}) |
|
51
|
0 |
0 |
unless $ps eq $ds |
|
53
|
2 |
1 |
if %param |
|
55
|
0 |
3 |
if exists $param{'TraceLevel'} and defined $param{'TraceLevel'} |
|
104
|
3 |
2 |
ref $proto ? : |
|
111
|
0 |
0 |
unless @args and $args[0] =~ /^DBI:/i |
|
116
|
0 |
0 |
unless (eval {
do {
$dbh = $class->SUPER::connect(@args)
}
}) |
|
129
|
0 |
2 |
if (my $cnf = $param->cnf) |
|
131
|
0 |
0 |
unless $cnf =~ /\.cnf$/ |
|
132
|
0 |
0 |
if not -r $cnf and defined $param->cnfdir |
|
133
|
0 |
0 |
unless -f $cnf and -r $cnf |
|
136
|
0 |
0 |
if defined $param->cnfgroup |
|
144
|
0 |
2 |
%custom ? : |
|
148
|
0 |
2 |
defined $param->host ? : |
|
|
2 |
0 |
defined $param->port ? : |
|
161
|
0 |
0 |
unless @args |
|
163
|
0 |
0 |
if ($args[2] and $_ = length $args[2] and $_ > 1) |
|
220
|
0 |
0 |
if @_ >= 2 or @_ == 1 and $_[0] ne 'have_innodb' |
|
226
|
0 |
0 |
if exists $$variables{'ignore_builtin_innodb'} and ($$variables{'ignore_builtin_innodb'} // '') eq 'ON' |
|
230
|
0 |
0 |
if @_ == 1 and $_[0] eq 'have_innodb' |
|
256
|
0 |
0 |
if defined $args[0] |
|
257
|
0 |
0 |
unless $schemata = $self->selectcol_arrayref($sql, $args[1]) |
|
261
|
0 |
0 |
unless (eval {
do {
my $sql = 'SHOW DATABASES';
$sql .= sprintf(q[ LIKE '%s'], $args[0]) if defined $args[0];
die unless $schemata = $self->selectcol_arrayref($sql, $args[1]);
@$schemata = grep((!/^lost\+found/), @$schemata);
1
}
}) |
|
281
|
0 |
0 |
unless (eval {
do {
my $sth = $self->table_info('', @args);
@$tables = map($$_[2], @{$sth->fetchall_arrayref;});
1
}
}) |
|
306
|
0 |
0 |
if (defined $opts) { } |
|
327
|
0 |
0 |
if ($$_[1] eq 'DEFAULT') { } |
|
332
|
0 |
0 |
$$_[1] eq 'YES' ? : |
|
350
|
0 |
0 |
unless defined $schema and length $schema |
|
351
|
0 |
0 |
unless defined $table and length $table |
|
363
|
0 |
0 |
unless defined $schema and length $schema |
|
366
|
0 |
0 |
if defined $table_pattern |
|
384
|
0 |
0 |
if (/^\-+$/ and length $buffer) { } |
|
|
0 |
0 |
elsif (/^-+$/) { } |
|
|
0 |
0 |
elsif (not length $title) { } |
|
421
|
0 |
0 |
unless eval {
do {
($space) = $self->selectrow_array("SELECT CONCAT(TRUNCATE(DATA_FREE / 1024, 0), ' kB')\nFROM information_schema.TABLES\nWHERE\n TABLE_SCHEMA = ?\n AND TABLE_NAME = ?", undef, $schema, $table);
$space ne '0 kB'
}
} |
|
423
|
0 |
0 |
if $comment =~ /InnoDB free: (\d+ \w+)/ |
|
445
|
0 |
0 |
unless (@_) |
|
452
|
0 |
0 |
unless (@_) |
|
465
|
0 |
0 |
unless looks_like_number $value |
|
471
|
0 |
0 |
unless (eval {
do {
($old) = $self->selectrow_array(sprintf('SELECT @@%s.%s', $scope, $var));
$value = "'${value}'" unless looks_like_number $value;
$self->do("SET $scope $var = $value");
($new) = $self->selectrow_array(sprintf('SELECT @@%s.%s', $scope, $var));
1
}
}) |
|
475
|
0 |
0 |
wantarray ? : |