| line |
true |
false |
branch |
|
356
|
0 |
0 |
unless ref $dirs eq 'ARRAY' |
|
361
|
0 |
0 |
unless my $driver = delete $args{'database_type'} |
|
365
|
0 |
0 |
if $@ |
|
383
|
0 |
0 |
if (@bad) |
|
386
|
0 |
0 |
unless $pending |
|
399
|
0 |
0 |
unless -e $readme |
|
419
|
0 |
0 |
unless my $host = $self->_start_new_db |
|
438
|
0 |
0 |
unless @todo |
|
439
|
0 |
0 |
if @todo and not $ENV{'MBD_QUIET'} |
|
443
|
0 |
0 |
if ($self->_apply_patch($filename)) { } |
|
444
|
0 |
0 |
unless $ENV{'MBD_QUIET'} |
|
447
|
0 |
0 |
unless $ENV{'MBD_QUIET'} |
|
452
|
0 |
0 |
if $self->runtime_params('leave_running') or $self->notes('leave_running') |
|
467
|
0 |
0 |
if (my $host = $self->notes('dbtest_host')) |
|
482
|
0 |
0 |
if (not -e "$dbdist/base.sql" and -e "$dbdist/patches_applied.txt") |
|
494
|
0 |
0 |
if ($self->_apply_base_sql) { } |
|
506
|
0 |
0 |
unless -d $dbdist |
|
508
|
0 |
0 |
unless my $fp = 'IO::File'->new(">>$patches_file") |
|
513
|
0 |
0 |
unless $self->_apply_patch($filename) |
|
518
|
0 |
0 |
if @todo |
|
547
|
0 |
0 |
unless -e $self->base_dir . '/db/dist' |
|
557
|
0 |
0 |
if ($self->_is_fresh_install) { } |
|
566
|
0 |
0 |
if ($self->_patch_table_exists) { } |
|
570
|
0 |
0 |
unless unlink "$tmp" |
|
581
|
0 |
0 |
unless (exists $base_patches{$patch}) |
|
585
|
0 |
0 |
if "@{$db_patches{$patch};}" eq "@{$base_patches{$patch};}" |
|
602
|
0 |
0 |
unless ($self->_apply_base_sql("$existing_schema")) |
|
603
|
0 |
0 |
unless $self->_apply_patch($_) |
|
606
|
0 |
0 |
unless $self->_diff_files("$tmp", $self->base_dir . '/db/dist/base.sql') |
|
613
|
0 |
0 |
unless -e $self->base_dir . '/db/dist' |
|
615
|
0 |
0 |
if ($self->_is_fresh_install) { } |
|
617
|
0 |
0 |
unless $self->_create_database |
|
619
|
0 |
0 |
unless $self->_apply_base_sql |
|
620
|
0 |
0 |
unless $self->_apply_base_data |
|
626
|
0 |
0 |
unless ($self->_patch_table_exists) |
|
629
|
0 |
0 |
unless $self->_create_patch_table |
|
642
|
0 |
0 |
if (exists $db_patches{$patch}) |
|
643
|
0 |
0 |
if "@{$base_patches{$patch};}" eq "@{$db_patches{$patch};}" |
|
648
|
0 |
0 |
unless $self->_apply_patch($patch) |
|
658
|
0 |
0 |
if ($@) |
|
664
|
0 |
0 |
unless ($obj_class) |