| examples/calculator/lib/Calculator.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 336 | 230 | if $key =~ /^([\d\.])$/ |
| 29 | 96 | 470 | if $key =~ m[^([\+\-/\*])$] |
| 32 | 56 | 510 | if $key eq "=" |
| 35 | 4 | 562 | if $key eq "C" |
| 60 | 38 | 298 | if ($digit eq ".") |
| 61 | 0 | 38 | if $self->right =~ /\./ |
| 62 | 0 | 38 | unless length $self->right |
| 72 | 12 | 0 | length $self->equals ? : |
| 140 | 12 | length $self->right ? : |