| line |
true |
false |
branch |
|
50
|
1 |
1 |
unless my $action = shift @args |
|
51
|
1 |
0 |
unless $action ~~ ['status', 'prepare', 'install', 'upgrade', 'downgrade', 'rm', 'diff'] |
|
70
|
0 |
0 |
unless ($last_version) |
|
78
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
85
|
0 |
0 |
unless ($self->params->{'force'} or $self->db_is_empty) |
|
91
|
0 |
0 |
if $self->params->{'to-version'} |
|
93
|
0 |
0 |
unless (-s "$paths->{'source_deploy'}/$last_version/001_auto.yml") |
|
99
|
0 |
0 |
if ($self->db_is_empty) { } |
|
110
|
0 |
0 |
if ($@) |
|
134
|
0 |
0 |
unless ($to_version) |
|
142
|
0 |
0 |
unless ($self->deployed->{'version'}) |
|
148
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
154
|
0 |
0 |
if ($self->params->{'to-version'} and $self->params->{'to-version'} > $to_version) |
|
160
|
0 |
0 |
if $self->params->{'to-version'} |
|
162
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
170
|
0 |
0 |
if ($self->params->{'force'}) |
|
182
|
0 |
0 |
unless @files |
|
185
|
0 |
0 |
unless -s $file |
|
193
|
0 |
0 |
unless $line |
|
199
|
0 |
0 |
if ($@) |
|
217
|
0 |
0 |
unless ($last_version) |
|
225
|
0 |
0 |
unless ($self->deployed->{'version'}) |
|
231
|
0 |
0 |
if ($self->params->{'to-version'} and $self->params->{'to-version'} > $last_version) |
|
239
|
0 |
0 |
unless ($to_version > 0) |
|
245
|
0 |
0 |
if ($self->deployed->{'version'} == $to_version) |
|
253
|
0 |
0 |
if ($self->params->{'force'}) |
|
264
|
0 |
0 |
unless @files |
|
267
|
0 |
0 |
unless -s $file |
|
275
|
0 |
0 |
unless $line |
|
281
|
0 |
0 |
if ($@) |
|
297
|
0 |
0 |
unless ($last_version) |
|
304
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) { } |
|
322
|
0 |
0 |
$last_version ? : |
|
324
|
0 |
0 |
if ($new_version == 1) { } |
|
330
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
334
|
0 |
0 |
if ($self->db_is_empty) |
|
345
|
0 |
0 |
if $error |
|
352
|
0 |
0 |
if $error |
|
356
|
0 |
0 |
if ($new_version > 1) |
|
365
|
0 |
0 |
if ($diff =~ /No differences/u) { } |
|
377
|
0 |
0 |
if $error |
|
392
|
0 |
0 |
if $error |
|
412
|
0 |
0 |
if (my $version = $self->deployed->{'version'}) |
|
416
|
0 |
0 |
if ($self->db_is_empty) |
|
455
|
0 |
0 |
unless $diff->{'table_diff_hash'} |
|
462
|
0 |
0 |
if (%$h) |
|
484
|
0 |
0 |
if (-e $path) |
|
485
|
0 |
0 |
unless opendir my $dh, $path |
|
493
|
0 |
0 |
@{(shift())->db->selectall_arrayref('show tables', {'Slice', {}});} ? : |
|
500
|
0 |
0 |
unless -d $dir |
|
502
|
0 |
0 |
unless $p->{'data'} |
|
504
|
0 |
0 |
unless open my $fh, '>', $p->{'path'} |
|
529
|
0 |
0 |
$p->{'filename'} ? : |
|
537
|
0 |
0 |
$p->{'filename'} ? : |
|
|
0 |
0 |
unless my(@output) = $translator->translate('producer', $p->{'to'}, $p->{'filename'} ? ('filename', $p->{'filename'}) : ()) |
|
542
|
0 |
0 |
if ($p->{'filename'}) |
|
557
|
0 |
0 |
if ($p->{'type'} eq 'install') { } |
|
566
|
0 |
0 |
if (-f $filename) |
|
568
|
0 |
0 |
unless open $file, "<$filename" |
|
575
|
0 |
0 |
/(^--|^BEGIN|^COMMIT|^\s*$)/u ? : |
|
590
|
0 |
0 |
unless my $version = $self->params->{'version'} |