| line |
true |
false |
branch |
|
280
|
0 |
78 |
@args == 1 ? : |
|
282
|
0 |
78 |
unless ref $self |
|
289
|
43 |
321 |
if ($$opt{'opt'}->alias) { } |
|
299
|
0 |
321 |
if ($$opt{'opt'}->help) |
|
311
|
0 |
43 |
if ($$self{'aliases'}{$dest}) { } |
|
|
0 |
43 |
elsif (not $$self{'options'}{$dest}) { } |
|
339
|
80 |
48 |
eval {
do {
tied(%$root)->isa('Tie::IxHash')
}
} ? : |
|
344
|
364 |
50 |
if (eval {
do {
$$root{$o}->isa('App::Getconf::Node')
}
}) { } |
|
|
50 |
0 |
elsif (ref $$root{$o} eq 'HASH') { } |
|
429
|
0 |
0 |
unless ref $self |
|
449
|
0 |
0 |
if ($opts{'header'}) |
|
461
|
0 |
0 |
if (ref $opts{'synopsis'} eq 'ARRAY') { } |
|
470
|
0 |
0 |
if ($line =~ /\n./) { } |
|
481
|
0 |
0 |
if (length $line < $opts{'screen'} - 1 - 7) { } |
|
494
|
0 |
0 |
if ($opts{'description'}) |
|
508
|
0 |
0 |
if ($$self{'help'}{'order'} and @{$$self{'help'}{'order'};}) |
|
512
|
0 |
0 |
length $opt > 1 ? : |
|
518
|
0 |
0 |
if ($node->has_value) |
|
520
|
0 |
0 |
unless defined $init_val |
|
526
|
0 |
0 |
if ($node->type eq 'flag') { } |
|
|
0 |
0 |
elsif ($node->type eq 'bool') { } |
|
|
0 |
0 |
elsif ($node->has_default) { } |
|
531
|
0 |
0 |
$node->get ? : |
|
538
|
0 |
0 |
if ($node->enum) |
|
548
|
0 |
0 |
if ($node->enum) |
|
567
|
0 |
0 |
if (_nlines($line) > 16 or $format_markers{'multiline_synopsis'} or $opts{'header'} or $opts{'description'}) |
|
581
|
0 |
0 |
if ($opts{'footer'}) |
|
632
|
0 |
0 |
if ($line eq '') { } |
|
|
0 |
0 |
elsif (length($line) + 1 + length($w) < $width) { } |
|
669
|
0 |
31 |
unless ref $self |
|
699
|
0 |
41 |
unless ref $self |
|
701
|
0 |
41 |
unless $arguments |
|
711
|
16 |
43 |
if ($args[$i] =~ /^--([a-zA-Z0-9-]+)=(.*)$/) { } |
|
|
34 |
9 |
elsif ($args[$i] =~ /^--([a-zA-Z0-9-]+)$/) { } |
|
|
0 |
9 |
elsif ($args[$i] =~ /^-([a-zA-Z0-9]+)$/) { } |
|
|
2 |
7 |
elsif ($args[$i] eq '--') { } |
|
|
0 |
7 |
elsif ($args[$i] =~ /^-/) { } |
|
729
|
1 |
33 |
if (not $self->has_option($option_name) and $option_name =~ /^no-/) |
|
734
|
1 |
0 |
if ($self->has_option($negated_name) and $self->option_node($negated_name)->type eq 'bool') |
|
742
|
19 |
15 |
if ($self->has_option($option_name) and $self->option_node($option_name)->requires_arg) |
|
746
|
18 |
1 |
if ($i < $#args) { } |
|
803
|
5 |
36 |
if (@errors) { } |
|
825
|
0 |
194 |
unless ref $self |
|
845
|
0 |
127 |
unless ref $self |
|
849
|
120 |
7 |
if ($$self{'options'}{$name}) |
|
853
|
7 |
0 |
if ($$self{'aliases'}{$name}) |
|
883
|
1 |
49 |
unless ($self->has_option($opt_name)) |
|
892
|
35 |
14 |
if (defined $opt_arg) { } |
|
893
|
3 |
32 |
unless (eval {
do {
$node->set($opt_arg);
'OK'
}
}) |
|
904
|
1 |
13 |
unless (eval {
do {
$node->set;
'OK'
}
}) |
|
940
|
0 |
75 |
unless ref $self |
|
946
|
34 |
41 |
if ($datum_type ne 'hash') |
|
948
|
0 |
34 |
unless ($self->has_option($path)) |
|
962
|
36 |
5 |
if (not $self->has_option($path) or $self->option_node($path)->storage ne 'hash') |
|
997
|
0 |
6 |
unless ref $self |
|
1029
|
0 |
5 |
unless ref $self |
|
1030
|
1 |
4 |
unless (defined $package) |
|
1032
|
1 |
0 |
if (not defined $package or $package eq 'main') |
|
1040
|
5 |
0 |
unless ($$self{'getopt_cache'}{$package}) |
|
1183
|
30 |
292 |
if (ref $storage) { } |
|
1186
|
15 |
15 |
if (ref $storage eq 'ARRAY') { } |
|
|
15 |
0 |
elsif (ref $storage eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $storage eq 'SCALAR') { } |
|
1197
|
22 |
300 |
exists $$data{'value'} ? : |
|
|
22 |
300 |
exists $$data{'default'} ? : |