| lib/UniGreek.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 8 | 12 | 66.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 28 | 2 | 30 | 10 | defined $c and exists $unigreek_to_utf8{$current_combination . $c} |
| 46 | 0 | 1 | 1 | scalar @output and $output[-1] eq 'σ' |
| 59 | 0 | 2 | 0 | scalar @output and $output[-1] eq 'ς' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 56 | 29 | 3 | 0 | $utf8_to_unigreek{$c} // $c |