| line |
true |
false |
branch |
|
34
|
0 |
0 |
if ($^O eq 'MSWin32') { } |
|
71
|
0 |
1 |
if @_ |
|
74
|
0 |
1 |
unless exists $error_types{$type} |
|
103
|
0 |
4 |
unless exists $usage_types{$type} |
|
105
|
0 |
4 |
if (-t STDERR) |
|
107
|
0 |
0 |
if $str =~ /\n\z/ |
|
109
|
0 |
0 |
if ($lines >= rows()) |
|
135
|
1 |
10 |
if (not @_ and @ARGV) |
|
139
|
1 |
0 |
if ($CODESET) |
|
154
|
0 |
6 |
if exists $COMMAND{$class} |
|
171
|
0 |
6 |
if exists $COMMAND{$class} |
|
173
|
1 |
5 |
unless $class =~ /(.+)::(.+)/ |
|
181
|
0 |
5 |
unless exists $COMMAND{$parent_class} |
|
195
|
0 |
0 |
unless exists $COMMAND{$class} |
|
212
|
0 |
0 |
unless 3 == @_ |
|
277
|
0 |
6 |
if $self->required and defined $self->default |
|
287
|
0 |
4 |
if (defined $value) { } |
|
298
|
3 |
1 |
if ($self->required) |
|
299
|
3 |
0 |
if length $comment |
|
334
|
0 |
8 |
if (exists $ref->{'ishelp'}) |
|
341
|
6 |
2 |
if ($ref->{'isa'} =~ /^Help/) |
|
353
|
0 |
0 |
if ($val == 1) { } |
|
|
0 |
0 |
elsif ($val == 2) { } |
|
373
|
0 |
8 |
unless (exists $isa2getopt{$ref->{'isa'}}) |
|
380
|
0 |
8 |
if ($ref->{'name'} =~ /_/) |
|
384
|
6 |
2 |
if $ref->{'alias'} |
|
395
|
0 |
4 |
if ($self->isa eq "Bool") |
|
396
|
0 |
0 |
if ($value) { } |
|
|
0 |
0 |
elsif (not defined $value) { } |
|
406
|
4 |
0 |
if (length $alias) |
|
412
|
0 |
4 |
if (defined $value) { } |
|
413
|
0 |
0 |
if ($self->isa eq 'Flag') { } |
|
|
0 |
0 |
elsif ($self->isa eq 'Bool') { } |
|
|
0 |
0 |
elsif ($self->isa eq 'Counter') { } |
|
417
|
0 |
0 |
$value ? : |
|
434
|
0 |
4 |
if ($self->required) |
|
435
|
0 |
0 |
if length $comment |
|
487
|
2 |
6 |
if ($args->{'isa'} =~ s/^--//) { } |
|
523
|
0 |
5 |
if exists $self->_subcmds->{$subcmd->name} |
|
544
|
19 |
4 |
unless $self->parent |
|
553
|
0 |
8 |
if not defined $_ |
|
578
|
0 |
13 |
if (exists $source_hash->{$name}) { } |
|
585
|
0 |
13 |
if (defined $result and my $t = $try->trigger) |
|
589
|
1 |
12 |
if (defined($result //= $try->default)) { } |
|
|
0 |
12 |
elsif ($try->required) { } |
|
591
|
0 |
1 |
if ('CODE' eq ref $result) { } |
|
608
|
7 |
4 |
if (@$source and my(@subcmds) = @{$cmd->subcmds;}) |
|
610
|
2 |
5 |
if ($cmd->abbrev) |
|
619
|
4 |
3 |
if (exists $cmd->_subcmds->{$subcmd}) |
|
635
|
4 |
3 |
if (@$source) { } |
|
|
0 |
3 |
elsif (exists $source_hash->{$name}) { } |
|
636
|
0 |
4 |
if ($source->[0] =~ /^--\S/ or $source->[0] =~ /^-\S/ and not $source->[0] =~ /^-\d/ && ($try->isa ne 'Num' || $try->isa ne 'Int')) |
|
657
|
0 |
4 |
if ($try->greedy) { } |
|
|
0 |
4 |
elsif ($try->isa eq 'ArrayRef') { } |
|
|
0 |
4 |
elsif ($try->isa eq 'HashRef') { } |
|
668
|
0 |
0 |
if ($try->isa eq 'ArrayRef' or $try->isa eq 'SubCmd') { } |
|
|
0 |
0 |
elsif ($try->isa eq 'HashRef') { } |
|
703
|
4 |
3 |
if (defined($result //= $try->default)) { } |
|
|
2 |
1 |
elsif ($try->required) { } |
|
711
|
0 |
2 |
'HASH' eq ref $result ? : |
|
|
0 |
2 |
'ARRAY' eq ref $result ? : |
|
|
2 |
2 |
if $try->isa eq "SubCmd" and not $try->fallthru |
|
718
|
0 |
4 |
if ('CODE' eq ref $result) { } |
|
733
|
0 |
11 |
if (@$source) { } |
|
|
0 |
11 |
elsif (my(@unexpected) = keys %$source_hash) { } |
|
750
|
4 |
7 |
if $reason |
|
775
|
0 |
8 |
if ($style eq "HelpTree") |
|
793
|
0 |
0 |
if ($overlap > 0 and not $paged) |
|
814
|
0 |
8 |
if @parents and $style ne "HelpSummary" |
|
819
|
0 |
8 |
if ($self->show_color) |
|
828
|
2 |
6 |
if length $error |
|
833
|
1 |
3 |
unless $arg->required |
|
835
|
0 |
4 |
if $arg->greedy |
|
836
|
1 |
3 |
unless $arg->required |
|
839
|
4 |
4 |
if $style eq "HelpSummary" |
|
841
|
4 |
0 |
if @opts |
|
845
|
0 |
4 |
if $style eq "Help" and length $self->comment |
|
853
|
4 |
0 |
if (@args) |
|
856
|
4 |
0 |
if ($arg->isa eq 'SubCmd') { } |
|
|
0 |
0 |
elsif ('OptArgRef' ne $arg->isa) { } |
|
860
|
0 |
4 |
$arg->show_default ? : |
|
868
|
4 |
0 |
unless $style eq "Help" |
|
887
|
0 |
0 |
unless $i |
|
890
|
0 |
0 |
$arg->show_default ? : |
|
901
|
4 |
0 |
if (@opts) |
|
904
|
0 |
4 |
if $style ne "Help" and $opt->hidden |
|
907
|
0 |
4 |
$opt->show_default ? : |
|
925
|
4 |
0 |
if (@sargs) |
|
933
|
0 |
4 |
if (@uargs) |
|
942
|
4 |
0 |
if (@uopts) |
|
963
|
0 |
4 |
if ($x eq 'main') { } |
|
981
|
6 |
0 |
unless $self->no_help |