| blib/lib/Getopt/Casual.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 26 | 84.6 |
| line | true | false | branch |
|---|---|---|---|
| 126 | 6 | 34 | if s/^([^=]+)=(.*)/$ARGV{$1} = $2;/e |
| 129 | 0 | 34 | if /^--$/ |
| 131 | 34 | 60 | unless exists $ARGV{$dash . $1} |
| 29 | 5 | unless /^--/ | |
| 17 | 9 | $next =~ /^-/ || !/^-/ && $next =~ /\D/ ? : | |
| 3 | 26 | /^--/ ? : | |
| 29 | 5 | defined $next ? : | |
| 137 | 9 | 25 | if defined $skip |
| 149 | 0 | 5 | if ($ARGV[0] eq '--') { } |
| 1 | 4 | elsif ($ARGV[0] =~ /=/ or $ARGV[0] =~ /^--/) { } | |
| 2 | 2 | elsif ($ARGV[0] =~ /^-/) { } | |
| 161 | 0 | 2 | $ARGV[1] =~ /^-/ ? : |
| 2 | 0 | defined $ARGV[1] ? : |