line |
true |
false |
branch |
40
|
1 |
0 |
$cmds ? :
|
42
|
1 |
0 |
$code ? :
|
287
|
0 |
0 |
$self->all ? :
|
291
|
0 |
0 |
unless my $ddl = $cmds->{'create_db'}
|
294
|
0 |
0 |
if not $self->$_test_for_existance($copts, $cmds->{'exists_db'}, @args) and $self->info("Creating $driver database $db")
|
298
|
0 |
0 |
if $self->debug and $r
|
301
|
0 |
0 |
if $ddl = $cmds->{'grant_all'}
|
303
|
0 |
0 |
if $self->debug and $r
|
314
|
0 |
0 |
if $self->dry_run and $self->output("Would create $schema_class")
|
330
|
0 |
0 |
unless $self->yorn('+Create database schema', $default, 1, 0)
|
346
|
0 |
0 |
unless my $ddl = $cmds->{'create_user'}
|
350
|
0 |
0 |
if not $self->$_test_for_existance($copts, $cmds->{'exists_user'}, @args) and $self->info("Creating $driver user $user")
|
354
|
0 |
0 |
if $self->debug and $r
|
372
|
0 |
0 |
$self->all ? :
|
376
|
0 |
0 |
unless $self->yorn('+Continue', $self->yes, 1, 0)
|
378
|
0 |
0 |
if $schema_class->can('config')
|
393
|
0 |
0 |
$self->all ? :
|
396
|
0 |
0 |
unless $self->yorn('+Really drop the database', $self->yes, 1, 0)
|
399
|
0 |
0 |
unless my $ddl = $cmds->{'drop_db'}
|
406
|
0 |
0 |
if $self->debug
|
417
|
0 |
0 |
unless my $ddl = $cmds->{'drop_user'}
|
422
|
0 |
0 |
unless $self->yorn('+Really drop the user', $self->yes, 1, 0)
|
423
|
0 |
0 |
unless $self->$_test_for_existance($copts, $cmds->{'exists_user'}, @args)
|
429
|
0 |
0 |
if $self->debug
|
438
|
0 |
0 |
$bootstrap ? :
|
439
|
0 |
0 |
$bootstrap ? :
|
458
|
0 |
0 |
$field eq 'password' ? :
|
460
|
0 |
0 |
$defaults->{$field} ne '_field' ? :
|
463
|
0 |
0 |
if $field ne 'name'
|
464
|
0 |
0 |
if $is_pw
|
469
|
0 |
0 |
if $self->dry_run and $self->dumper($cfg_data)
|
482
|
0 |
0 |
unless my $cmds = $self->ddl_commands->{$drvr}
|
485
|
0 |
0 |
$code ? :
|
489
|
0 |
0 |
unless $cmds->{'-no_pipe'}
|
490
|
0 |
0 |
if $self->dry_run and $self->output($cmd)
|
491
|
0 |
0 |
if $self->verbose
|
499
|
0 |
0 |
if ($class) { }
|
508
|
0 |
0 |
if ($self->dry_run) { }
|
512
|
0 |
0 |
if ($_->can('class') and $_->class eq 'ValidationErrors')
|
525
|
0 |
0 |
unless my $class = $self->next_argv
|