| blib/lib/Versioning/Scheme/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 26 | 88.4 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 2 | 5 | $@ ? : |
| 26 | 1 | 1 | if $@ |
| 49 | 1 | 18 | unless $opts->{'num'} != 0 |
| 51 | 3 | 15 | if ($opts->{'part'} eq 'dev') |
| 54 | 2 | 1 | if ($v =~ /_([0-9]+)\z/) { } |
| 56 | 0 | 3 | if $dev2 < 0 |
| 65 | 1 | 13 | if $opts->{'part'} < -@parts |
| 67 | 0 | 13 | if $opts->{'part'} > $#parts |
| 69 | 12 | 1 | if $idx < 0 |
| 73 | 1 | 12 | if $parts[$idx] + $opts->{'num'} < 0 |
| 77 | 12 | 5 | if ($i == 0 or $parts[$i] + $left < 1000) { } |
| 89 | 8 | 4 | if ($opts->{'reset_smaller'} and $opts->{'num'} > 0) |
| 90 | 0 | 8 | if $idx < 0 |