| blib/lib/App/Software/License.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 14 | 71.4 |
| line | l | !l | condition |
|---|---|---|---|
| 161 | 1 | 6 | not exists $args->{'license'} and scalar @ARGV |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 161 | 0 | 1 | 5 | not exists $args->{'license'} and scalar @ARGV and not $ARGV[-1] =~ /^--.+=.+/ |
| 1 | 5 | 0 | not exists $args->{'license'} and scalar @ARGV and not $ARGV[-1] =~ /^--.+=.+/ and !scalar(@_) || $ARGV[-1] ne $_[-1] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 158 | 2 | 5 | 0 | $args->{'configfile'} || catfile('File::HomeDir'->my_home, '.software_license.conf') |
| 161 | 0 | 4 | 1 | !scalar(@_) || $ARGV[-1] ne $_[-1] |