| line |
true |
false |
branch |
|
494
|
1 |
116 |
unless $this eq 'Getopt::Mixed::Help' |
|
495
|
2 |
114 |
unless 0 < @_ |
|
496
|
2 |
112 |
unless @_ % 2 == 0 |
|
510
|
33 |
2 |
if ($_[0] =~ /^.[^>].*$/ and $_[0] ne 'ENV' and $_[0] ne 'ENV_') |
|
539
|
339 |
123 |
if ($option =~ /^(?:(\w)?>(>)?)?([-a-z0-9]{2,})(?:([:=][isf])\s*(.*))?$/) { } |
|
|
32 |
91 |
elsif ($option =~ /^\(.+\)$/) { } |
|
|
4 |
87 |
elsif ($option eq '->-') { } |
|
|
2 |
85 |
elsif ($option eq '->debug') { } |
|
|
2 |
83 |
elsif ($option eq '->default') { } |
|
|
3 |
80 |
elsif ($option eq '->help') { } |
|
|
10 |
70 |
elsif ($option eq '->multiple') { } |
|
|
1 |
69 |
elsif ($option eq '->options') { } |
|
|
1 |
68 |
elsif ($option eq '->usage') { } |
|
|
33 |
35 |
elsif ($option eq 'ENV') { } |
|
|
33 |
2 |
elsif ($option eq 'ENV_') { } |
|
553
|
6 |
333 |
if (ref $default_cref eq 'CODE') |
|
555
|
3 |
3 |
if (ref &$default_cref eq '') { } |
|
|
2 |
1 |
elsif (ref &$default_cref eq 'ARRAY') { } |
|
575
|
48 |
290 |
unless defined $specifier |
|
576
|
6 |
332 |
if ($opt_valtext and $specifier =~ /^=/) { } |
|
|
3 |
329 |
elsif ($opt_valtext and $specifier =~ /^:/) { } |
|
|
128 |
201 |
elsif ($specifier =~ /^=/) { } |
|
|
153 |
48 |
elsif ($specifier =~ /^:/) { } |
|
|
0 |
48 |
elsif (defined $opt_valtext) { } |
|
578
|
1 |
5 |
if ($opt_valtext =~ /^{.*}$/) { } |
|
593
|
40 |
0 |
$specifier =~ /f$/ ? : |
|
|
42 |
40 |
$specifier =~ /s$/ ? : |
|
|
46 |
82 |
$specifier =~ /i$/ ? : |
|
599
|
39 |
0 |
$specifier =~ /f$/ ? : |
|
|
75 |
39 |
$specifier =~ /s$/ ? : |
|
|
39 |
114 |
$specifier =~ /i$/ ? : |
|
613
|
105 |
233 |
0 == @option_vars ? : |
|
614
|
300 |
38 |
if defined $short_option |
|
618
|
300 |
38 |
if defined $short_option |
|
620
|
40 |
298 |
$specifier eq ':i' ? : |
|
628
|
139 |
199 |
if $max_length < length $var |
|
629
|
9 |
329 |
if ($is_multiple) |
|
631
|
1 |
8 |
if $use_multiple |
|
639
|
40 |
297 |
if ($specifier =~ /^:i$/) { } |
|
|
40 |
257 |
elsif ($specifier =~ /^:f$/) { } |
|
660
|
1 |
1 |
unless /^([-a-z0-9]{2,})$/i |
|
667
|
1 |
1 |
unless /%s/i |
|
674
|
1 |
2 |
unless /^(\w)>([-a-z0-9]{2,})$/i |
|
682
|
1 |
9 |
if 0 < (my(@list) = %multiple_options) |
|
706
|
4 |
29 |
if (defined $env{$env_prefix . '_'}) |
|
712
|
5 |
1 |
$_ ne '' ? : |
|
|
6 |
1 |
unless defined $env{$env_var} |
|
723
|
8 |
96 |
if ($use_multiple) |
|
728
|
56 |
9 |
if ($options[$_] =~ /[:=][fis]$/) { } |
|
746
|
2 |
102 |
unless (GetOptions @options) |
|
756
|
5 |
97 |
if ($$help_opt_name or $has_only_options and 0 <= $#ARGV) |
|
762
|
8 |
89 |
if ($use_multiple) |
|
764
|
5 |
3 |
if (defined $multiple) { } |
|
768
|
4 |
37 |
unless defined $$option |
|
769
|
5 |
32 |
unless ref $$option eq 'ARRAY' |
|
770
|
14 |
18 |
if ($option_type{$option} eq 's') { } |
|
|
18 |
0 |
elsif ($option_type{$option} eq 'i' or $option_type{$option} eq 'f') { } |
|
793
|
21 |
3 |
unless $option_type{$option} eq '' |
|
795
|
0 |
3 |
if ref $$option ne '' |
|
796
|
1 |
2 |
if $$option == 1 |
|
804
|
31 |
66 |
if (defined $env_prefix) |
|
809
|
143 |
98 |
if defined $$_ |
|
811
|
10 |
88 |
if defined $env{$env_var} |
|
818
|
1 |
4 |
if defined $$_ |
|
829
|
11 |
297 |
if (ref $$_ eq 'ARRAY' and 1 == @$$_) { } |
|
841
|
5 |
92 |
if ($$debug_opt_name) |
|
846
|
11 |
4 |
$$_ =~ /^-?\d+(?:\.\d+)?$/ ? : |
|
|
2 |
15 |
ref $$_ eq 'ARRAY' ? : |
|
|
14 |
17 |
!defined($$_) ? : |
|
855
|
2 |
3 |
if @ARGV |
|
858
|
3 |
3 |
$_ =~ /^-?\d+(?:\.\d+)?$/ ? : |