| examples/calculator/lib/Calculator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 168 | 115 | if $key =~ /^([\d\.])$/ |
| 29 | 48 | 235 | if $key =~ m[^([\+\-/\*])$] |
| 32 | 28 | 255 | if $key eq "=" |
| 35 | 2 | 281 | if $key eq "C" |
| 60 | 19 | 149 | if ($digit eq ".") |
| 61 | 0 | 19 | if $self->right =~ /\./ |
| 62 | 0 | 19 | unless length $self->right |
| 72 | 6 | 0 | length $self->equals ? : |
| 70 | 6 | length $self->right ? : |