Condition Coverage

blib/lib/Language/LispPerl/Evaler.pm
Criterion Covered Total %
condition 67 120 55.8


and 3 conditions

line !l l&&!r l&&r condition
387 213 444 12 $type eq 'symbol' and $value eq 'true'
213 437 7 $type eq 'symbol' and $value eq 'false'
213 436 1 $type eq 'symbol' and $value eq 'nil'
172 77 359 $type eq 'symbol' and $self->{'syntaxquotation_scope'} == 0
249 0 359 $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 359 96 0 $type eq 'dequotation' and $self->{'syntaxquotation_scope'} == 0
421 359 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 171 23 5 $class eq 'Seq' and $type eq 'vector'
171 23 0 $class eq 'Seq' and $type eq 'map' || $type eq 'meta'
171 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 undef context')
387 41 0 608 $type eq 'syntaxquotation' or $type eq 'quotation'
359 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'
533 15 4 0 $f->context // $self->copy_current_scope
593 34 1 0 $f->context // $self->copy_current_scope
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 ''