Branch Coverage

blib/lib/App/Sqitch.pm
Criterion Covered Total %
branch 61 66 92.4


line true false branch
207 2 0 $command->execute(@args) ? :
210 1 3 unless eval {
213 1 2 if ($_->exitval == 1) { }
221 1 1 $_->ident eq 'DEV' ? :
250 0 18 unless &Getopt::Long::GetOptionsFromArray($args, map({(my $k = $_) =~ s/[|=+:!].*//;
257 2 16 if ($opts{'help'} or $opts{'man'})
259 1 1 $opts{'help'} ? :
266 1 17 if (delete $opts{'version'})
272 1 16 if ($opts{'etc_path'})
278 4 12 if (my $dir = delete $opts{'chdir'})
279 1 3 unless chdir $dir
288 1 14 if delete $opts{'quiet'}
297 0 46 unless my $arg = $args->[$i]
298 23 23 if ($arg =~ /^-/)
299 1 22 if $arg eq "--"
303 0 22 if $arg =~ /^(?:-[duhp])|(?:--(?:db-\w+|client|engine|extension|plan-file|registry|top-dir))$/
307 5 18 unless my $cmd = &try(sub {
384 1 1 if $self->_is_unattended
386 1 0 if defined $answer
392 4 22 unless my $msg = shift()
396 4 4 if @_
398 6 27 defined $def[0] ? :
11 17 scalar @def ? :
406 2 2 if ($self->_is_unattended)
407 11 8 unless @def
446 7 34 unless @_ > 1
449 10 24 if $def and not $def =~ /^[yn]/i
451 9 2 $def =~ /^y/i ? :
467 10 25 unless open $pipe, "|-", @_
475 2 3 if (ref $fh eq 'ARRAY') { }
483 2 30 $! ? :
8 2 unless close $pipe
497 8 24 if $ret