| blib/lib/Bot/ChatBots/Telegram/Sender.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 10 | 19 | 52.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 40 | 0 | 1 | 0 | @_ && ref $_[0] |
| 45 | 1 | 0 | 0 | $start_loop and not 'Mojo::IOLoop'->is_running |
| 53 | 3 | 2 | 0 | @_ && ref $_[0] |
| 71 | 1 | 1 | 3 | $method eq 'sendMessage' and not exists $message->{'chat_id'} |
| line | l | !l | condition |
|---|---|---|---|
| 66 | 0 | 1 | delete local $$message{'method'} // 'send' |
| 88 | 0 | 0 | $self->can('has_callback') // sub { return 1; } |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 60 | 4 | 1 | 0 | delete $message->{'telegram_method'} // do { state $method_for = {'send', 'sendMessage', 'sendMessage', 'sendMessage'}; my $name = delete local $$message{'method'} // 'send'; ouch(500, $self->name . ": unsupported method $name") unless $method_for->{$name} } |