| line |
true |
false |
branch |
|
71
|
2 |
23 |
if $optspec eq "<>" |
|
73
|
2 |
21 |
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 |
|
111
|
1 |
20 |
if (defined $res{'optnum'}) |
|
115
|
7 |
14 |
if ($res{'aliases'}) { } |
|
118
|
7 |
11 |
unless length $al |
|
119
|
0 |
11 |
if $al eq $res{'name'} |
|
120
|
0 |
11 |
if grep {$_ eq $al;} @als |
|
130
|
3 |
18 |
if $res{'is_neg'} |
|
131
|
1 |
20 |
if $res{'is_inc'} |
|
194
|
3 |
10 |
if ref $_[0] eq "HASH" |
|
197
|
0 |
13 |
unless my $parse = parse_getopt_long_opt_spec($optspec) |
|
200
|
1 |
12 |
if $parse->{'is_arg'} |
|
209
|
2 |
16 |
if ($parse->{'is_neg'} and length $_ > 1) { } |
|
213
|
11 |
5 |
if (length $_ > 1) { } |
|
220
|
8 |
2 |
if ($i == 1 and $parse->{'type'} || $parse->{'opttype'}) |
|
226
|
0 |
8 |
if $parse->{'opttype'} |
|
227
|
3 |
5 |
$parse->{'type'} && $parse->{'desttype'} eq '%' ? : |
|
228
|
3 |
5 |
if $parse->{'desttype'} eq "%" |
|
230
|
0 |
8 |
if $parse->{'opttype'} |
|
232
|
0 |
8 |
if $parse->{'opttype'} |
|
233
|
3 |
5 |
$parse->{'type'} && $parse->{'desttype'} eq '%' ? : |
|
234
|
3 |
5 |
if $parse->{'desttype'} eq "%" |
|
235
|
0 |
8 |
defined $opts->{'value_label_link'} ? : |
|
236
|
0 |
8 |
if $parse->{'opttype'} |
|
238
|
5 |
11 |
if ($parse->{'desttype'} // "") =~ /@|%/ |
|
239
|
5 |
11 |
if ($parse->{'desttype'} // "") =~ /@|%/ |
|
242
|
6 |
12 |
if length $plain_res |
|
243
|
6 |
12 |
if length $pod_res |
|
249
|
1 |
11 |
if ($opts->{'extended'}) { } |
|
301
|
0 |
0 |
unless defined $args{'filename'} xor defined $args{'string'} |
|
312
|
0 |
0 |
if (defined $args{'filename'}) |
|
314
|
0 |
0 |
unless (-f $fn) |
|
318
|
0 |
0 |
unless ($include_noexec or -x _) |
|
323
|
0 |
0 |
unless (open $fh, "<", $fn) |
|
329
|
0 |
0 |
unless ($str eq "#!") |
|
334
|
0 |
0 |
unless ($shebang =~ /perl/) |
|
345
|
0 |
0 |
unless ($str =~ /\A#!/) |
|
349
|
0 |
0 |
unless ($str =~ /\A#!.*perl/) |
|
364
|
0 |
0 |
if (/^\s*(use|require)\s+(Getopt::Long(?:::Complete|::Less|::EvenLess)?)(\s|;|$)/) |
|
413
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$2 ? : |
|
|
0 |
0 |
$is_getopt ? : |
|
460
|
1 |
3 |
if @$go_spec and ref $go_spec->[0] eq "HASH" |
|
466
|
5 |
4 |
if (@$go_spec and ref $go_spec->[0]) { } |
|
|
2 |
2 |
elsif ($hash_storage) { } |
|
469
|
0 |
2 |
unless my $res = parse_getopt_long_opt_spec($opt_spec) |
|
472
|
1 |
1 |
unless exists $hash_storage->{$name} |
|
475
|
1 |
1 |
ref $hash_storage->{$name} ? : |