Bot-Telegram

 view release on metacpan or  search on metacpan

t/lib/Bot/Telegram/Test.pm  view on Meta::CPAN

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
my @UPDATES = qw/message edited_message edited_channel_post callback_query/;
 
sub timer(&$) { Mojo::IOLoop -> timer(pop, pop) } ## no critic
 
sub loop_for_a_second {
  timer { Mojo::IOLoop -> stop } 1;
  Mojo::IOLoop -> start;
}
 
sub update {
  my ($type, $id) = @_;
 
  return {
    $type => {
      foo => 'bar',
      baz => 'qux',
    },
 
    update_id => $id,
  };



( run in 0.363 second using v1.01-cache-2.11-cpan-00829025b61 )