| line |
true |
false |
branch |
|
22
|
1 |
0 |
@_ ? : |
|
24
|
3 |
0 |
if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { } |
|
35
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
39
|
0 |
0 |
if ($_ eq 'no_ignore_case') { } |
|
|
0 |
0 |
elsif ($_ eq 'bundling') { } |
|
|
0 |
0 |
elsif ($_ eq 'auto_abbrev') { } |
|
|
0 |
0 |
elsif ($_ eq 'gnu_compat') { } |
|
|
0 |
0 |
elsif ($_ eq 'no_getopt_compat') { } |
|
|
0 |
0 |
elsif ($_ eq 'permute') { } |
|
|
0 |
0 |
elsif (/\Ano_?require_order\z/) { } |
|
61
|
35 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
71
|
0 |
55 |
unless my $parsed = parse_getopt_long_opt_spec($k) |
|
73
|
0 |
55 |
if (defined $parsed->{'max_vals'}) |
|
90
|
3 |
89 |
$s->{'is_neg'} && length $o0 > 1 ? : |
|
93
|
11 |
84 |
if $short_mode and length $o > 1 |
|
94
|
47 |
37 |
if ($o eq $wanted) { } |
|
|
3 |
34 |
elsif (index($o, $wanted) == 0) { } |
|
106
|
4 |
49 |
if (not @candidates) { } |
|
|
1 |
48 |
elsif (@candidates > 1) { } |
|
129
|
28 |
18 |
if (@_) { } |
|
132
|
3 |
15 |
if ($parsed->{'is_inc'} and $ref eq 'SCALAR') { } |
|
|
1 |
14 |
elsif ($parsed->{'is_inc'} and $vals) { } |
|
|
2 |
12 |
elsif ($parsed->{'type'} and $parsed->{'type'} eq 'i' or $parsed->{'opttype'} and $parsed->{'opttype'} eq 'i') { } |
|
|
1 |
11 |
elsif ($parsed->{'type'} and $parsed->{'type'} eq 'f' or $parsed->{'opttype'} and $parsed->{'opttype'} eq 'f') { } |
|
|
2 |
9 |
elsif ($parsed->{'type'} and $parsed->{'type'} eq 's' or $parsed->{'opttype'} and $parsed->{'opttype'} eq 's') { } |
|
133
|
3 |
0 |
defined $$destination ? : |
|
135
|
0 |
1 |
defined $vals->{$name} ? : |
|
146
|
2 |
7 |
$is_neg ? : |
|
151
|
8 |
38 |
if ($parsed->{'type'} and $parsed->{'type'} eq 'i' or $parsed->{'opttype'} and $parsed->{'opttype'} eq 'i') { } |
|
|
11 |
52 |
elsif ($parsed->{'type'} and $parsed->{'type'} eq 'f' or $parsed->{'opttype'} and $parsed->{'opttype'} eq 'f') { } |
|
153
|
3 |
5 |
unless ($val =~ /\A[+-]?\d+\z/) |
|
159
|
4 |
7 |
unless ($val =~ /\A[+-]?(\d+(\.\d+)?|\.\d+)([Ee][+-]?\d+)?\z/) |
|
165
|
34 |
5 |
if ($ref eq 'CODE') { } |
|
|
4 |
1 |
elsif ($ref eq 'SCALAR') { } |
|
182
|
2 |
52 |
if ($argv->[$i] eq '--') { } |
|
|
46 |
6 |
elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { } |
|
|
4 |
2 |
elsif ($argv->[$i] =~ /\A-(.*)/) { } |
|
191
|
5 |
41 |
unless (defined $opt) |
|
192
|
4 |
1 |
unless $is_ambig |
|
198
|
26 |
15 |
if ($spec->{'type'} or $spec->{'opttype'} and defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)) { } |
|
201
|
2 |
24 |
if (defined $val_in_opt) { } |
|
203
|
0 |
2 |
unless (&$code_set_val($is_neg, $opt, $val_in_opt)) |
|
208
|
1 |
23 |
if ($i + 1 >= @$argv) |
|
215
|
23 |
0 |
if ($spec->{'type'} or not $$argv[$i + 1] =~ /\A-/) |
|
217
|
7 |
16 |
unless (&$code_set_val($is_neg, $opt, $argv->[$i])) |
|
224
|
0 |
15 |
unless (&$code_set_val($is_neg, $opt)) |
|
237
|
0 |
7 |
unless defined $opt |
|
241
|
4 |
3 |
if ($spec->{'type'} or $spec->{'opttype'} and length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)) { } |
|
244
|
2 |
2 |
if (length $str) { } |
|
246
|
2 |
0 |
if (&$code_set_val($is_neg, $opt, $str)) { } |
|
253
|
1 |
1 |
if ($i + 1 >= @$argv) |
|
260
|
1 |
0 |
if ($spec->{'type'} or not $$argv[$i + 1] =~ /\A-/) |
|
262
|
0 |
1 |
unless (&$code_set_val($is_neg, $opt, $argv->[$i])) |
|
269
|
0 |
3 |
unless (&$code_set_val($is_neg, $opt)) |
|
296
|
0 |
55 |
if $optspec eq "<>" |
|
298
|
0 |
55 |
unless $optspec =~ qr/\A
(?P-{0,2})
(?P[A-Za-z0-9_][A-Za-z0-9_-]*)
(?P (?: \| (?:[^:|!+=:-][^:|!+=:]*) )*)?
(?:
(?P!) |
(?P\+) |
(?:
=
(?P[siof])
(?P|[%\@])?
(?:
\{
(?: (?P\d+), )?
(?P\d+)
\}
)?
) |
(?:
:
(?P[siof])
(?P|[%\@])?
) |
(?:
:
(?P-?\d+)
(?P|[%\@])?
) |
(?:
:
(?P\+)
(?P|[%\@])?
)
)?
\z/x |
|
336
|
0 |
55 |
if (defined $res{'optnum'}) |
|
340
|
8 |
47 |
if ($res{'aliases'}) { } |
|
343
|
8 |
8 |
unless length $al |
|
344
|
0 |
8 |
if $al eq $res{'name'} |
|
345
|
0 |
8 |
if grep {$_ eq $al;} @als |
|
355
|
3 |
52 |
if $res{'is_neg'} |
|
356
|
2 |
53 |
if $res{'is_inc'} |