| line |
true |
false |
branch |
|
88
|
0 |
4 |
if keys %conf |
|
144
|
0 |
5 |
unless defined $into |
|
146
|
0 |
5 |
unless ref($into) =~ /^(?:SCALAR|CODE)$/u |
|
175
|
0 |
6 |
unless my $global_optspecs = $self->{'global_options'} |
|
182
|
7 |
3 |
if (ref $into eq 'SCALAR') { } |
|
225
|
30 |
8 |
if (my(%optspec) = $command->options) |
|
231
|
10 |
6 |
if (defined $val) { } |
|
|
1 |
5 |
elsif (not $argspec->optional) { } |
|
232
|
4 |
6 |
if ($argspec->slurpy) |
|
261
|
0 |
49 |
if ($token eq "--") |
|
262
|
0 |
0 |
if $passthrough |
|
273
|
21 |
28 |
if ($token =~ s/^--([^=]+)(=|$)//u) { } |
|
|
13 |
15 |
elsif ($token =~ s/^-(.)//u) { } |
|
275
|
1 |
20 |
if (not $optspec->{$opt} and $opt =~ /no-(.+)/u) { } |
|
|
19 |
1 |
elsif ($spec = $optspec->{$opt}) { } |
|
276
|
0 |
1 |
unless $spec = $optspec->{$1} and $spec->negatable |
|
284
|
0 |
1 |
unless $passthrough |
|
290
|
0 |
13 |
unless ($spec = $optspec->{$1}) |
|
291
|
0 |
0 |
unless $passthrough |
|
295
|
4 |
9 |
if ($spec->mode_expects_value) { } |
|
|
2 |
8 |
elsif ($self->{'config'}{'bundling'} and length $token and length $1 == 1) { } |
|
305
|
1 |
14 |
if ($self->{'config'}{'require_order'}) { } |
|
315
|
19 |
14 |
if ($spec->mode_expects_value) { } |
|
316
|
14 |
5 |
$value_in_token ? : |
|
320
|
1 |
13 |
if $value_in_token or length $token |
|
323
|
6 |
26 |
if (defined(my $matches = $spec->matches)) |
|
324
|
3 |
3 |
unless $value =~ /$matches/u |
|
330
|
5 |
24 |
if ($spec->mode eq 'multi_value') { } |
|
|
8 |
16 |
elsif ($spec->mode eq 'inc') { } |
|
|
1 |
15 |
elsif ($spec->mode eq 'bool') { } |
|
343
|
2 |
27 |
if defined $token_again |
|
351
|
7 |
189 |
if defined $spec->default and not exists $opts->{$keyname} |
|
377
|
6 |
8 |
if $self->{'global_options'} |
|
381
|
0 |
15 |
unless defined(my $cmdname = $cinv->pull_token) |
|
384
|
0 |
15 |
unless my $cmd = $self->find_command($cmdname) |
|
389
|
0 |
15 |
if not $multiple and length $cinv->peek_remaining |
|
397
|
1 |
14 |
if $multiple and length $cinv->peek_remaining |
|
456
|
1 |
1 |
@_ ? : |
|
510
|
3 |
2 |
unless $first |
|
513
|
2 |
3 |
$optspec->mode eq 'value' ? : |
|
514
|
1 |
4 |
$optspec->negatable ? : |
|
518
|
5 |
2 |
length $_ > 1 ? : |
|
521
|
1 |
4 |
defined $default ? : |
|
537
|
1 |
0 |
if (my $opts = $self->{'global_options'}) |
|
546
|
0 |
1 |
unless my $cmd = $self->find_command($cmdname) |
|
565
|
1 |
0 |
%optspecs ? : |
|
|
1 |
0 |
@argspecs ? : |
|
567
|
0 |
1 |
if $argspec->slurpy |
|
568
|
0 |
1 |
if $argspec->optional |
|
574
|
1 |
0 |
if (%optspecs) |
|
581
|
1 |
0 |
if (@argspecs) |
|
592
|
0 |
1 |
if ($cmdpkg->can("commandable_more_help")) |