| blib/lib/Data/SExpression.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 15 | 16 | 93.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 259 | 11 | 1 | 3 | consp $_ and scalarp($_->car) |
| 299 | 64 | 95 | 119 | ref $thing && UNIVERSAL::isa($thing, 'Data::SExpression::Cons') |
| line | l | !l | condition |
|---|---|---|---|
| 119 | 7 | 4 | shift() || {} |
| 250 | 3 | 12 | $_[0]->() or return 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 225 | 30 | 3 | 8 | consp($thing->cdr) or not defined $thing->cdr |
| 311 | 6 | 0 | 1 | !ref($thing) || ref $thing eq 'GLOB' || ref $thing eq 'Data::SExpression::Symbol' |