Condition Coverage

blib/lib/Language/LispPerl/Evaler.pm
Criterion Covered Total %
condition 63 114 55.2


and 3 conditions

line !l l&&!r l&&r condition
387 213 449 12 $type eq 'symbol' and $value eq 'true'
213 442 7 $type eq 'symbol' and $value eq 'false'
213 441 1 $type eq 'symbol' and $value eq 'nil'
172 77 364 $type eq 'symbol' and $self->{'syntaxquotation_scope'} == 0
249 0 364 $type eq 'symbol' and $self->{'syntaxquotation_scope'} == 0 and $self->{'quotation_scope'} == 0
153 0 96 $type eq 'dequotation' and $self->{'syntaxquotation_scope'} > 0
76 77 0 $type eq 'symbol' and $self->{'quotation_scope'} > 0
419 364 96 0 $type eq 'dequotation' and $self->{'syntaxquotation_scope'} == 0
421 364 63 33 $type eq 'dequotation' and $value =~ /^@(\S+)$/
437 1 69 0 $type eq 'list' and $ast->size == 0
441 110 63 33 $i->type eq 'dequotation' and $i->value =~ /^@/
464 172 23 5 $class eq 'Seq' and $type eq 'vector'
172 23 0 $class eq 'Seq' and $type eq 'map' || $type eq 'meta'
172 0 10 $class eq 'Seq' and $type eq 'xml'
480 0 0 0 $mtype ne 'map' and $mtype ne 'meta'
510 0 0 0 $vtype ne 'vector' and $vtype ne 'list'
0 0 0 $vtype ne 'vector' and $vtype ne 'list' and $vtype ne 'xml'
585 0 0 0 defined $ast->second and $ast->second->type eq 'meta'
660 0 0 0 $sn->type ne 'string' and $sn->type ne 'keyword'
692 14 0 0 $k->type ne 'keyword' and $k->type ne 'string'
714 10 0 0 $firsttype ne 'symbol' and $firsttype ne 'string'
10 0 0 $firsttype ne 'symbol' and $firsttype ne 'string' and $firsttype ne 'keyword'
726 5 6 2 $it ne 'string' and $it ne 'xml'
11 2 0 $it ne 'string' and $it ne 'xml' and $it ne 'meta'
8 0 0 $it ne 'string' and $it ne 'xml' and $it ne 'meta' and $it ne 'list'
791 6 0 0 $rt->type ne 'string' and $rt->type ne 'keyword'
802 0 0 0 $arg->type ne 'string' and $arg->type ne 'keyword'

or 3 conditions

line l !l&&r !l&&!r condition
93 57 0 0 shift() || confess('Cannot push untrue context')
387 41 0 613 $type eq 'syntaxquotation' or $type eq 'quotation'
364 0 249 $type eq 'symbol' and $self->{'syntaxquotation_scope'} == 0 and $self->{'quotation_scope'} == 0 or $type eq 'dequotation' and $self->{'syntaxquotation_scope'} > 0
464 3 10 10 $type eq 'map' || $type eq 'meta'
646 0 0 0 $at eq 'string' or $at eq 'keyword'
892 8 0 8 $type eq 'string' or $type eq 'number'
8 0 8 $type eq 'string' or $type eq 'number' or $type eq 'quotation'
0 0 8 $type eq 'string' or $type eq 'number' or $type eq 'quotation' or $type eq 'keyword'
0 5 3 $type eq 'string' or $type eq 'number' or $type eq 'quotation' or $type eq 'keyword' or $type eq 'perlobject'
0 0 2 $type eq 'list' or $type eq 'vector'
963 0 1 2 not defined ref $v or ref $v eq ''