lib/AI/Prolog/Parser.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 10 | 17 | 58.8 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
219 | 90 | 0 | 3060 | $self->current ne "\n" and $self->current ne '#' |
230 | 0 | 0 | 0 | $self->current ne '*' and $self->current ne '#' |
267 | 52 | 108 | 234 | $body && $body->isa('AI::Prolog::TermList::Primitive') |
358 | 125 | 0 | 5 | '_' eq $self->current and $self->peek =~ /^[\]\|\.;\s\,\)]$/ |
line | l | !l | condition |
---|---|---|---|
96 | 5 | 0 | substr($$self{'_str'}, $$self{'_posn'} + 1, 1) || '#' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
256 | 9 | 13 | 0 | $db ||= 'AI::Prolog::KnowledgeBase'->new |