| findrule | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 9 | 36 | 24 | unless -d $dir |
| 20 | 6 | 6 | if (/^-/) |
| 32 | 1 | 12 | unless ($clause =~ s/^-// and $rule->can($clause)) |
| 38 | 2 | 10 | unless (@ARGV) |
| 46 | 4 | 6 | if ($param =~ /^-/) |
| 53 | 2 | 4 | if ($param eq "(") |
| 58 | 2 | 4 | if $val eq ")" |
| 73 | 5 | 0 | @where ? : |