| lib/Data/SExpression/Parser.yp | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 22 | 72.7 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 24 | if ref $class |
| 49 | 0 | 67 | unless defined $input |
| 55 | 0 | 11 | unless my $handler = shift() |
| 79 | 0 | 305 | unless defined $self->YYData->{'INPUT'} |
| 86 | 38 | 267 | if /\G ([+-]? \d+ (?:[.]\d*)?) /cgx or /\G ([+-]? [.] \d+) /cgx |
| 90 | 66 | 201 | if /\G ($symbol_char ($symbol_char | \d | [.] )*)/cgx |
| 93 | 0 | 201 | if /\G (\| [^|]* \|) /cgx |
| 96 | 28 | 0 | defined $1 ? : |
| 28 | 173 | if /\G " ([^"\\]* (?: \\. [^"\\]*)*) "/cgx | |
| 99 | 150 | 23 | if /\G ([().])/cgx |
| 102 | 8 | 15 | if /\G ([`',]) /cgx |