blib/lib/App/TeleGramma/BotAction/Listen.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 12 | 41.6 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
19 | 0 | 7 | 0 | $msg->text and not ref $cmd |
7 | 0 | 0 | $msg->text and not ref $cmd and $msg->text =~ /^\Q$cmd\E \b \@?/x | |
25 | 0 | 0 | 7 | $msg->text and ref $cmd eq 'Regexp' |
0 | 2 | 5 | $msg->text and ref $cmd eq 'Regexp' and $msg->text =~ /$cmd/ |