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
|