| 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 |