| blib/lib/ThaiSchema/JSON.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 7 | 17 | 41.1 |
| line | l | !l | condition |
|---|---|---|---|
| 75 | 0 | 0 | $self->error('Missing or empty input') and return undef |
| 83 | 0 | 0 | $self->error('Wide character in input') and return undef |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 89 | 164 | 0 | 0 | $bytes =~ /$UTF_PATTERNS->{$_}/ and $encoding = $_ |
| 131 | 33 | 0 | 8 | not $res and my $e = $@ |
| 347 | 2 | 13 | 1 | $schema->is_integer and int $number != $number |
| line | l | !l | condition |
|---|---|---|---|
| 394 | 8 | 0 | pop @lines or '' |
| 412 | 0 | 0 | pop @lines or '' |