blib/lib/RiveScript.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 48 | 95 | 50.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
527 | 0 | 33 | 234 | defined $lookahead and length $lookahead > 0 |
529 | 16 | 7 | 211 | $lookCmd ne '^' and $lookCmd ne '%' |
565 | 4 | 0 | 11 | $cmd ne '^' and $lookCmd ne '%' |
933 | 13 | 3 | 0 | $line =~ /^begin/ and $line =~ /\s+/ |
9 | 7 | 0 | $line =~ /^topic/i and $line =~ /[^a-z0-9_\-\s]/ | |
1827 | 0 | 0 | 0 | $topic eq 'random' and $doneRandom |
2217 | 0 | 0 | 3 | length $user and length $var |
2276 | 0 | 0 | 0 | length $user and exists $self->{'client'}{$user} |
2333 | 0 | 0 | 0 | length $user and exists $self->{'frozen'}{$user} |
2395 | 0 | 0 | 0 | length $user and exists $self->{'client'}{$user}{'__lastmatch__'} |
line | l | !l | condition |
---|---|---|---|
120 | 26 | 0 | ref $proto || $proto || 'RiveScript' |
277 | 0 | 0 | shift() || '.' |
1022 | 29 | 29 | shift() || 'no' |
1896 | 0 | 0 | $width ||= 78 |
2243 | 0 | 0 | shift() || '' |
2930 | 0 | 0 | $self->{'client'}{$user}{'__history__'}{'input'}[0] || 'undefined' |
2942 | 0 | 0 | $self->{'client'}{$user}{'__history__'}{'reply'}[0] || 'undefined' |
2973 | 345 | 0 | $arrInput[0] || 'undefined' |
2974 | 345 | 0 | $arrReply[0] || 'undefined' |
3064 | 65 | 4 | $parts[1] || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
278 | 0 | 0 | 0 | @_ || ('.rive', '.rs') |
811 | 3 | 7 | 6 | $type eq 'begin' or $type eq 'topic' |
916 | 87 | 7 | 124 | $cmd eq '+' or $cmd eq '%' |
94 | 3 | 121 | $cmd eq '+' or $cmd eq '%' or $cmd eq '@' | |
83 | 12 | 26 | $cmd eq '-' or $cmd eq '^' | |
95 | 0 | 26 | $cmd eq '-' or $cmd eq '^' or $cmd eq '/' | |
1525 | 2 | 4 | 42 | exists $self->{'lineage'}{$topic} or $inherited |
1832 | 0 | 0 | 0 | $topic ne 'random' or exists $deparse->{'include'}{$topic} |
0 | 0 | 0 | $topic ne 'random' or exists $deparse->{'include'}{$topic} or exists $deparse->{'inherit'}{$topic} | |
2574 | 9 | 0 | 153 | exists $self->{'includes'}{$topic} or exists $self->{'lineage'}{$topic} |
2701 | 0 | 19 | 20 | $eq eq 'eq' or $eq eq '==' |
0 | 4 | 16 | $eq eq 'ne' or $eq eq '!=' | |
4 | 0 | 16 | $eq eq 'ne' or $eq eq '!=' or $eq eq '<>' | |
2765 | 0 | 0 | 197 | not defined $reply or length $reply == 0 |
3068 | 5 | 3 | 61 | $tag eq 'bot' or $tag eq 'env' |