| line |
true |
false |
branch |
|
19
|
1 |
0 |
if (exists $args{'dbh'}) { } |
|
22
|
0 |
0 |
unless ($args{'hostname'} or $args{'socket'}) |
|
34
|
0 |
0 |
if ($args{$arg_key}) |
|
43
|
0 |
0 |
unless $self->{'dbh'} = "DBI"->connect($dsn, $args{'user'} || '', $args{'password'} || '', {"AutoCommit", 0}) |
|
50
|
0 |
1 |
exists $self->{'dbh'}{'mysql_serverversion'} ? : |
|
70
|
0 |
0 |
if ($self->{'server_version'} >= 50706) |
|
102
|
22 |
9 |
if ($stmt =~ s/\AGRANT (.+?) ON (.+?) TO $q($Q+?)$q\@$q($Q+?)$q\s*//) |
|
108
|
9 |
22 |
if ($stmt =~ s/\ACREATE USER $q($Q+?)$q\@$q($Q+?)$q\s*//) |
|
113
|
3 |
28 |
if ($stmt =~ s/\AIDENTIFIED BY PASSWORD $q($Q+?)$q\s*//) |
|
116
|
4 |
27 |
if ($stmt =~ s/\AIDENTIFIED WITH $q($Q+?)$q AS $q($Q+?)$q\s*//) |
|
120
|
5 |
26 |
if ($stmt =~ s/\AIDENTIFIED WITH $q($Q+?)$q\s*//) |
|
126
|
11 |
20 |
if ($stmt =~ s/\AREQUIRE //) |
|
127
|
7 |
4 |
if ($stmt =~ s/\ANONE\s*//) { } |
|
|
2 |
2 |
elsif ($stmt =~ s/\A(SSL|X509)\s*//) { } |
|
140
|
12 |
19 |
if ($stmt =~ s/\AWITH //) |
|
142
|
8 |
4 |
if ($stmt =~ s/\AGRANT OPTION\s*//) |
|
170
|
14 |
17 |
unless (exists $packed->{$user_host}) |
|
182
|
26 |
5 |
if ($object) |
|
183
|
4 |
22 |
if (exists $packed->{$user_host}{'objects'}{$object}) { } |
|
184
|
0 |
4 |
if (@{$grant->{'privs'};}) |
|
187
|
4 |
0 |
if ($grant->{'with'}) |
|
188
|
1 |
3 |
if ($packed->{$user_host}{'objects'}{$object}{'with'}) { } |
|
199
|
4 |
27 |
if $required |
|
201
|
7 |
24 |
if ($identified) |
|
232
|
0 |
1 |
if ($self->{'need_disconnect'}) |
|
233
|
0 |
0 |
if $self->{'dbh'} |