| 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) |
|
99
|
1 |
13 |
if ($stmt =~ s/\s+IDENTIFIED WITH\s+'([^']+)'\s+AS\s+(.+?)\s+//) |
|
103
|
1 |
13 |
if ($stmt =~ s/\s+IDENTIFIED WITH\s+'([^']+)'\s+//) |
|
107
|
2 |
12 |
if ($stmt =~ /\ACREATE\s+USER\s+'(.*)'\@'(.+)'/) |
|
112
|
6 |
8 |
if ($stmt =~ s/\s+WITH\s+(.+?)\z//) |
|
115
|
2 |
12 |
if ($stmt =~ s/\s+REQUIRE\s+(.+?)\z//) |
|
118
|
3 |
11 |
if ($stmt =~ s/\s+IDENTIFIED BY\s+(.+?)\z//) |
|
121
|
12 |
2 |
if ($stmt =~ /\AGRANT\s+(.+?)\s+ON\s+(.+?)\s+TO\s+'(.*)'\@'(.+)'\z/) |
|
146
|
7 |
7 |
unless (exists $packed->{$user_host}) |
|
157
|
0 |
14 |
unless $grant->{'privs'} |
|
|
12 |
2 |
if scalar @{[] unless $grant->{'privs'};} > 0 |
|
158
|
2 |
12 |
if $required |
|
160
|
4 |
10 |
if ($identified) |
|
189
|
0 |
1 |
if ($self->{'need_disconnect'}) |
|
190
|
0 |
0 |
if $self->{'dbh'} |