| regops.perl | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 22 | 77.2 |
| line | true | false | branch |
|---|---|---|---|
| 4 | 0 | 1 | unless my $in = shift @ARGV |
| 5 | 0 | 1 | unless my $out = shift @ARGV |
| 6 | 0 | 1 | unless open IN, $in |
| 7 | 0 | 1 | unless open OUT, "> $out" |
| 26 | 53 | 36 | if (/^\s*rbc_(\w+)/) |
| 32 | 2 | 51 | if @parms > $max_opr |
| 35 | 27 | 26 | /\w+\(/ ? : |
| 44 | 1 | 88 | if (/^\#define RM_WORD_PACK \"(.)\"/) |
| 60 | 260 | 5 | if (defined $attr) { } |
| 61 | 159 | 101 | if ($attr =~ /^\d+$/) { } |
| 116 | 0 | 1 | unless close OUT |