| line |
true |
false |
branch |
|
208
|
2 |
0 |
$command->execute(@args) ? :
|
|
211
|
1 |
5 |
unless eval {
|
|
214
|
1 |
4 |
if ($_->exitval == 1) { }
|
|
|
2 |
2 |
elsif ($_->ident eq 'DEV') { }
|
|
251
|
0 |
20 |
unless &Getopt::Long::GetOptionsFromArray($args, map({(my $k = $_) =~ s/[|=+:!].*//;
|
|
258
|
2 |
18 |
if ($opts{'help'} or $opts{'man'})
|
|
260
|
1 |
1 |
$opts{'help'} ? :
|
|
267
|
1 |
19 |
if (delete $opts{'version'})
|
|
273
|
1 |
18 |
if ($opts{'etc_path'})
|
|
279
|
4 |
14 |
if (my $dir = delete $opts{'chdir'})
|
|
280
|
1 |
3 |
unless chdir $dir
|
|
289
|
1 |
16 |
if delete $opts{'quiet'}
|
|
298
|
0 |
48 |
unless my $arg = $args->[$i]
|
|
299
|
23 |
25 |
if ($arg =~ /^-/)
|
|
300
|
1 |
22 |
if $arg eq "--"
|
|
304
|
0 |
22 |
if $arg =~ /^(?:-[duhp])|(?:--(?:db-\w+|client|engine|extension|plan-file|registry|top-dir))$/
|
|
308
|
5 |
20 |
unless my $cmd = &try(sub {
|
|
385
|
1 |
1 |
if $self->_is_unattended
|
|
387
|
1 |
0 |
if defined $answer
|
|
393
|
4 |
22 |
unless my $msg = shift()
|
|
397
|
4 |
4 |
if @_
|
|
399
|
6 |
27 |
defined $def[0] ? :
|
|
|
11 |
17 |
scalar @def ? :
|
|
407
|
2 |
2 |
if ($self->_is_unattended)
|
|
408
|
11 |
8 |
unless @def
|
|
447
|
7 |
34 |
unless @_ > 1
|
|
450
|
10 |
24 |
if $def and not $def =~ /^[yn]/i
|
|
452
|
9 |
2 |
$def =~ /^y/i ? :
|
|
468
|
10 |
25 |
unless open $pipe, "|-", @_
|
|
476
|
2 |
3 |
if (ref $fh eq 'ARRAY') { }
|
|
484
|
2 |
30 |
$! ? :
|
|
|
8 |
2 |
unless close $pipe
|
|
498
|
8 |
24 |
if $ret
|