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 '' |