| line |
true |
false |
branch |
|
53
|
1 |
1 |
unless my $action = shift @args |
|
54
|
1 |
0 |
unless $action ~~ ['status', 'prepare', 'install', 'upgrade', 'downgrade', 'rm', 'diff'] |
|
73
|
0 |
0 |
unless ($last_version) |
|
81
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
88
|
0 |
0 |
unless ($self->params->{'force'} or $self->db_is_empty) |
|
94
|
0 |
0 |
if $self->params->{'to-version'} |
|
96
|
0 |
0 |
unless (-s "$paths->{'source_deploy'}/$last_version/001_auto.yml") |
|
102
|
0 |
0 |
if ($self->db_is_empty) { } |
|
113
|
0 |
0 |
if ($@) |
|
137
|
0 |
0 |
unless ($to_version) |
|
145
|
0 |
0 |
unless ($self->deployed->{'version'}) |
|
151
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
157
|
0 |
0 |
if ($self->params->{'to-version'} and $self->params->{'to-version'} > $to_version) |
|
163
|
0 |
0 |
if $self->params->{'to-version'} |
|
165
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
173
|
0 |
0 |
if ($self->params->{'force'}) |
|
185
|
0 |
0 |
unless @files |
|
188
|
0 |
0 |
unless -s $file |
|
196
|
0 |
0 |
unless $line |
|
202
|
0 |
0 |
if ($@) |
|
220
|
0 |
0 |
unless ($last_version) |
|
228
|
0 |
0 |
unless ($self->deployed->{'version'}) |
|
234
|
0 |
0 |
if ($self->params->{'to-version'} and $self->params->{'to-version'} > $last_version) |
|
242
|
0 |
0 |
unless ($to_version > 0) |
|
248
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
256
|
0 |
0 |
if ($self->params->{'force'}) |
|
267
|
0 |
0 |
unless @files |
|
270
|
0 |
0 |
unless -s $file |
|
278
|
0 |
0 |
unless $line |
|
284
|
0 |
0 |
if ($@) |
|
300
|
0 |
0 |
unless ($last_version) |
|
307
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) { } |
|
325
|
0 |
0 |
$last_version ? : |
|
327
|
0 |
0 |
if ($new_version == 1) { } |
|
333
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
337
|
0 |
0 |
if ($self->db_is_empty) |
|
348
|
0 |
0 |
if $error |
|
355
|
0 |
0 |
if $error |
|
359
|
0 |
0 |
if ($new_version > 1) |
|
368
|
0 |
0 |
if ($diff =~ /No differences/u) { } |
|
380
|
0 |
0 |
if $error |
|
395
|
0 |
0 |
if $error |
|
415
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
419
|
0 |
0 |
if ($self->db_is_empty) |
|
458
|
0 |
0 |
unless $diff->{'table_diff_hash'} |
|
465
|
0 |
0 |
if (%$h) |
|
487
|
0 |
0 |
if (-e $path) |
|
488
|
0 |
0 |
unless opendir my $dh, $path |
|
496
|
0 |
0 |
@{(shift())->db->selectall_arrayref('show tables', {'Slice', {}});} ? : |
|
503
|
0 |
0 |
unless -d $dir |
|
505
|
0 |
0 |
unless $p->{'data'} |
|
507
|
0 |
0 |
unless open my $fh, '>', $p->{'path'} |
|
520
|
0 |
0 |
$self->config->{'datasource'}{'host'} ? : |
|
|
0 |
0 |
$self->config->{'datasource'}{'port'} ? : |
|
522
|
0 |
0 |
if $args |
|
538
|
0 |
0 |
$p->{'filename'} ? : |
|
546
|
0 |
0 |
$p->{'filename'} ? : |
|
|
0 |
0 |
unless my(@output) = $translator->translate('producer', $p->{'to'}, $p->{'filename'} ? ('filename', $p->{'filename'}) : ()) |
|
551
|
0 |
0 |
if ($p->{'filename'}) |
|
566
|
0 |
0 |
if ($p->{'type'} eq 'install') { } |
|
575
|
0 |
0 |
if (-f $filename) |
|
577
|
0 |
0 |
unless open $file, "<$filename" |
|
584
|
0 |
0 |
/(^--|^BEGIN|^COMMIT|^\s*$)/u ? : |
|
599
|
0 |
0 |
unless my $version = $self->params->{'version'} |