| 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
|
6 |
2 |
if ($ref->{'isa'} =~ /^Help/) |
|
346
|
0 |
0 |
if ($val == 1) { } |
|
|
0 |
0 |
elsif ($val == 2) { } |
|
366
|
0 |
8 |
unless (exists $isa2getopt{$ref->{'isa'}}) |
|
373
|
0 |
8 |
if ($ref->{'name'} =~ /_/) |
|
377
|
6 |
2 |
if $ref->{'alias'} |
|
388
|
0 |
4 |
if ($self->isa eq "Bool") |
|
389
|
0 |
0 |
if ($value) { } |
|
|
0 |
0 |
elsif (not defined $value) { } |
|
399
|
4 |
0 |
if (length $alias) |
|
405
|
0 |
4 |
if (defined $value) { } |
|
406
|
0 |
0 |
if ($self->isa eq 'Flag') { } |
|
|
0 |
0 |
elsif ($self->isa eq 'Bool') { } |
|
|
0 |
0 |
elsif ($self->isa eq 'Counter') { } |
|
410
|
0 |
0 |
$value ? : |
|
427
|
0 |
4 |
if ($self->required) |
|
428
|
0 |
0 |
if length $comment |
|
480
|
2 |
6 |
if ($args->{'isa'} =~ s/^--//) { } |
|
517
|
0 |
5 |
if exists $self->_subcmds->{$subcmd->name} |
|
538
|
19 |
4 |
unless $self->parent |
|
547
|
0 |
8 |
if not defined $_ |
|
572
|
0 |
13 |
if (exists $source_hash->{$name}) { } |
|
579
|
0 |
13 |
if (defined $result and my $t = $try->trigger) |
|
583
|
1 |
12 |
if (defined($result //= $try->default)) { } |
|
|
0 |
12 |
elsif ($try->required) { } |
|
585
|
0 |
1 |
if ('CODE' eq ref $result) { } |
|
602
|
7 |
4 |
if (@$source and my(@subcmds) = @{$cmd->subcmds;}) |
|
604
|
2 |
5 |
if ($cmd->abbrev) |
|
613
|
4 |
3 |
if (exists $cmd->_subcmds->{$subcmd}) |
|
629
|
4 |
3 |
if (@$source) { } |
|
|
0 |
3 |
elsif (exists $source_hash->{$name}) { } |
|
630
|
0 |
4 |
if ($source->[0] =~ /^--\S/ or $source->[0] =~ /^-\S/ and not $source->[0] =~ /^-\d/ && ($try->isa ne 'Num' || $try->isa ne 'Int')) |
|
651
|
0 |
4 |
if ($try->greedy) { } |
|
|
0 |
4 |
elsif ($try->isa eq 'ArrayRef') { } |
|
|
0 |
4 |
elsif ($try->isa eq 'HashRef') { } |
|
662
|
0 |
0 |
if ($try->isa eq 'ArrayRef' or $try->isa eq 'SubCmd') { } |
|
|
0 |
0 |
elsif ($try->isa eq 'HashRef') { } |
|
697
|
4 |
3 |
if (defined($result //= $try->default)) { } |
|
|
2 |
1 |
elsif ($try->required) { } |
|
705
|
0 |
2 |
'HASH' eq ref $result ? : |
|
|
0 |
2 |
'ARRAY' eq ref $result ? : |
|
|
2 |
2 |
if $try->isa eq "SubCmd" and not $try->fallthru |
|
712
|
0 |
4 |
if ('CODE' eq ref $result) { } |
|
727
|
0 |
11 |
if (@$source) { } |
|
|
0 |
11 |
elsif (my(@unexpected) = keys %$source_hash) { } |
|
744
|
4 |
7 |
if $reason |
|
769
|
0 |
8 |
if ($style eq "HelpTree") |
|
787
|
0 |
0 |
if ($overlap > 0 and not $paged) |
|
808
|
0 |
8 |
if @parents and $style ne "HelpSummary" |
|
813
|
0 |
8 |
if ($self->show_color) |
|
822
|
2 |
6 |
if length $error |
|
827
|
1 |
3 |
unless $arg->required |
|
829
|
0 |
4 |
if $arg->greedy |
|
830
|
1 |
3 |
unless $arg->required |
|
833
|
4 |
4 |
if $style eq "HelpSummary" |
|
835
|
4 |
0 |
if @opts |
|
839
|
0 |
4 |
if $style eq "Help" and length $self->comment |
|
847
|
4 |
0 |
if (@args) |
|
850
|
4 |
0 |
if ($arg->isa eq 'SubCmd') { } |
|
|
0 |
0 |
elsif ('OptArgRef' ne $arg->isa) { } |
|
854
|
0 |
4 |
$arg->show_default ? : |
|
862
|
4 |
0 |
unless $style eq "Help" |
|
881
|
0 |
0 |
unless $i |
|
884
|
0 |
0 |
$arg->show_default ? : |
|
895
|
4 |
0 |
if (@opts) |
|
898
|
0 |
4 |
if $style ne "Help" and $opt->hidden |
|
901
|
0 |
4 |
$opt->show_default ? : |
|
919
|
4 |
0 |
if (@sargs) |
|
927
|
0 |
4 |
if (@uargs) |
|
936
|
4 |
0 |
if (@uopts) |
|
957
|
0 |
4 |
if ($x eq 'main') { } |
|
975
|
6 |
0 |
unless $self->no_help |