Bot-ChatBots-Telegram

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Bot::ChatBots" : "0.006",
            "IO::Socket::SSL" : "2.038",
            "Log::Any" : "1.042",
            "Mojolicious" : "7.08",
            "Moo" : "2.002005",
            "Ouch" : "0.0409",
            "Try::Tiny" : "0.27",
            "WWW::Telegram::BotAPI" : "0.12",
            "namespace::clean" : "0.27",
            "perl" : "5.010"
         }
      },
      "test" : {
         "requires" : {
            "Mock::Quick" : "1.111",
            "Path::Tiny" : "0.096",
            "Test::More" : "0.88",

META.yml  view on Meta::CPAN

    - share
    - t
    - xt
requires:
  Bot::ChatBots: '0.006'
  IO::Socket::SSL: '2.038'
  Log::Any: '1.042'
  Mojolicious: '7.08'
  Moo: '2.002005'
  Ouch: '0.0409'
  Try::Tiny: '0.27'
  WWW::Telegram::BotAPI: '0.12'
  namespace::clean: '0.27'
  perl: '5.010'
resources:
  bugtracker: https://github.com/polettix/Bot-ChatBots-Telegram/issues
  homepage: https://github.com/polettix/Bot-ChatBots-Telegram
  repository: https://github.com/polettix/Bot-ChatBots-Telegram.git
version: '0.014'
x_contributors:
  - 'Flavio Poletti <flavio.poletti@ericsson.com>'

cpanfile  view on Meta::CPAN

requires 'perl',                  '5.010';
requires 'Bot::ChatBots',         '0.006';
requires 'IO::Socket::SSL',       '2.038';
requires 'Log::Any',              '1.042';
requires 'Mojolicious',           '7.08';
requires 'Ouch',                  '0.0409';
requires 'Try::Tiny',             '0.27';
requires 'WWW::Telegram::BotAPI', '0.12';
requires 'Moo',                   '2.002005';
requires 'namespace::clean',      '0.27';

on test => sub {
   requires 'Test::More',  '0.88';
   requires 'Path::Tiny',  '0.096';
   requires 'Mock::Quick', '1.111';
   requires 'Test::Trap';    # for Ouch, apparently
};

lib/Bot/ChatBots/Telegram/LongPoll.pm  view on Meta::CPAN

package Bot::ChatBots::Telegram::LongPoll;
use strict;
use warnings;
{ our $VERSION = '0.014'; }

use Ouch;
use Try::Tiny;
use Log::Any qw< $log >;
use Mojo::IOLoop ();
use IO::Socket::SSL ();    # just to be sure to complain loudly in case
use List::Util qw< max >;
use Data::Dumper;

use Moo;
use namespace::clean;

with 'Bot::ChatBots::Telegram::Role::Source';    # normalize_record, token