| blib/lib/Getopt/LongUsage.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 34 | 72 | 47.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 47 | 0 | 0 | 5 | @optionlist and ref $optionlist[0] |
| 0 | 0 | 5 | @optionlist and ref $optionlist[0] and UNIVERSAL::isa($optionlist[0], 'HASH') | |
| 59 | 0 | 5 | 0 | @optionlist and $optionlist[0] =~ /^\W+$/ |
| 0 | 0 | 0 | $optionlist[0] eq '<>' && @optionlist > 0 && ref $optionlist[1] | |
| 5 | 0 | 0 | @optionlist and $optionlist[0] =~ /^\W+$/ and not $optionlist[0] eq '<>' && @optionlist > 0 && ref $optionlist[1] | |
| 94 | 5 | 23 | 0 | @optionlist and ref $optionlist[0] |
| 179 | 1 | 0 | 4 | exists $args{'descriptions'} and ref $args{'descriptions'} eq 'ARRAY' |
| 210 | 4 | 16 | 18 | @{$$usagemap{$ctlname}[1];} == 0 and my $desc = &$gethashvalue($opt, \%descriptions) |
| 254 | 10 | 15 | 3 | @shortopt == 0 and not defined $mainopt |
| 25 | 0 | 3 | @shortopt == 0 and not defined $mainopt and @aliasopt == 0 |
| line | l | !l | condition |
|---|---|---|---|
| 35 | 0 | 5 | ref $_[0] eq $Getopt::LongUsage::REF_NAME or undef |
| 110 | 5 | 0 | ref $_[0] eq $Getopt::LongUsage::REF_NAME or undef |
| 158 | 0 | 5 | $Getopt::Long::CTL_TYPE || 0 |
| 0 | 5 | $Getopt::Long::CTL_CNAME || 1 | |
| 0 | 5 | $Getopt::Long::CTL_DEFAULT || 2 | |
| 0 | 5 | $Getopt::Long::CTL_DEST || 3 | |
| 0 | 5 | $Getopt::Long::CTL_DEST_SCALAR || 0 | |
| 0 | 5 | $Getopt::Long::CTL_DEST_ARRAY || 1 | |
| 0 | 5 | $Getopt::Long::CTL_DEST_HASH || 2 | |
| 0 | 5 | $Getopt::Long::CTL_DEST_CODE || 3 | |
| 0 | 5 | $Getopt::Long::CTL_AMIN || 4 | |
| 0 | 5 | $Getopt::Long::CTL_AMAX || 5 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 28 | 0 | 1 | 0 | ref $pkg || $pkg |
| 124 | 0 | 0 | 19 | not defined $k or $k eq '' |
| 188 | 0 | 0 | 15 | not defined $args{'descriptions'}[$tmp_ordernumber] or $args{'descriptions'}[$tmp_ordernumber] eq '' |
| 201 | 0 | 0 | 38 | not defined $opt or $opt eq '' |
| 280 | 0 | 0 | 25 | not defined $outline or ref !($outline =~ /ARRAY/) |
| 0 | 0 | 25 | not defined $outline or ref !($outline =~ /ARRAY/) or not defined $$outline[0][0] |