| blib/lib/Encode/Wechsler.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 28 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 2 | 0 | unless ref $thingy |
| 34 | 2 | 0 | unless ref $thingy->[0] |
| 37 | 60 | 49 | $_ eq '.' ? : |
| 60 | 12 | 3 | ref $_ && int join('', @$_) ? : |
| 88 | 0 | 9 | unless $code =~ /x[spq][0-9]+_[0-9a-z]+/ |
| 95 | 14 | 9 | if length $_ > $self->{'max'} |
| 102 | 14 | 9 | if (length $part < $self->{'max'}) |
| 107 | 13 | 10 | if $self->{'pad'} |
| 123 | 9 | 10 | if (_sum(@$_)) |
| 132 | 5 | 4 | if ($self->{'pad'}) |
| 133 | 5 | 0 | if _sum($grid[0]) |
| 134 | 5 | 0 | if _sum($grid[-1]) |
| 137 | 0 | 9 | wantarray ? : |
| 144 | 210 | 1966 | $_ ? : |