| line |
true |
false |
branch |
|
20
|
1 |
0 |
@_ ? : |
|
22
|
3 |
0 |
if (grep {$_ eq $imp;} @EXPORT, @EXPORT_OK) { } |
|
33
|
0 |
0 |
if (ref $_[0] eq 'HASH') { } |
|
37
|
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/) { } |
|
59
|
35 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
69
|
0 |
55 |
unless my $parsed = parse_getopt_long_opt_spec($k) |
|
71
|
0 |
55 |
if (defined $parsed->{'max_vals'}) |
|
88
|
3 |
89 |
$s->{'is_neg'} && length $o0 > 1 ? : |
|
91
|
11 |
84 |
if $short_mode and length $o > 1 |
|
92
|
47 |
37 |
if ($o eq $wanted) { } |
|
|
3 |
34 |
elsif (index($o, $wanted) == 0) { } |
|
104
|
4 |
49 |
if (not @candidates) { } |
|
|
1 |
48 |
elsif (@candidates > 1) { } |
|
127
|
28 |
18 |
if (@_) { } |
|
130
|
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') { } |
|
144
|
2 |
7 |
$is_neg ? : |
|
149
|
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') { } |
|
151
|
3 |
5 |
unless ($val =~ /\A[+-]?\d+\z/) |
|
157
|
4 |
7 |
unless ($val =~ /\A[+-]?(\d+(\.\d+)?|\.\d+)([Ee][+-]?\d+)?\z/) |
|
163
|
34 |
5 |
if ($ref eq 'CODE') { } |
|
|
4 |
1 |
elsif ($ref eq 'SCALAR') { } |
|
180
|
2 |
52 |
if ($argv->[$i] eq '--') { } |
|
|
46 |
6 |
elsif ($argv->[$i] =~ /\A--(.+?)(?:=(.*))?\z/) { } |
|
|
4 |
2 |
elsif ($argv->[$i] =~ /\A-(.*)/) { } |
|
189
|
5 |
41 |
unless (defined $opt) |
|
190
|
4 |
1 |
unless $is_ambig |
|
196
|
26 |
15 |
if ($spec->{'type'} or $spec->{'opttype'} and defined $val_in_opt && length $val_in_opt || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)) { } |
|
199
|
2 |
24 |
if (defined $val_in_opt) { } |
|
201
|
0 |
2 |
unless (&$code_set_val($is_neg, $opt, $val_in_opt)) |
|
206
|
1 |
23 |
if ($i + 1 >= @$argv) |
|
213
|
23 |
0 |
if ($spec->{'type'} or not $$argv[$i + 1] =~ /\A-/) |
|
215
|
7 |
16 |
unless (&$code_set_val($is_neg, $opt, $argv->[$i])) |
|
222
|
0 |
15 |
unless (&$code_set_val($is_neg, $opt)) |
|
235
|
0 |
7 |
unless defined $opt |
|
239
|
4 |
3 |
if ($spec->{'type'} or $spec->{'opttype'} and length $str || $i + 1 < @$argv && !($$argv[$i + 1] =~ /\A-/)) { } |
|
242
|
2 |
2 |
if (length $str) { } |
|
244
|
2 |
0 |
if (&$code_set_val($is_neg, $opt, $str)) { } |
|
251
|
1 |
1 |
if ($i + 1 >= @$argv) |
|
258
|
1 |
0 |
if ($spec->{'type'} or not $$argv[$i + 1] =~ /\A-/) |
|
260
|
0 |
1 |
unless (&$code_set_val($is_neg, $opt, $argv->[$i])) |
|
267
|
0 |
3 |
unless (&$code_set_val($is_neg, $opt)) |
|
294
|
0 |
55 |
if $optspec eq '<>' |
|
296
|
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 |
|
334
|
8 |
47 |
if ($res{'aliases'}) { } |
|
337
|
8 |
8 |
unless length $al |
|
338
|
0 |
8 |
if $al eq $res{'name'} |
|
339
|
0 |
8 |
if grep {$_ eq $al;} @als |
|
349
|
3 |
52 |
if $res{'is_neg'} |
|
350
|
2 |
53 |
if $res{'is_inc'} |