AnyEvent-SlackBot

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "AnyEvent::HTTP::MultiGet" : "0",
            "AnyEvent::WebSocket::Client" : "0.39",
            "B" : "1.68",
            "Carp" : "1.42",
            "Data::Dumper" : "2.161",
            "Data::Result" : "1.0",
            "Exporter" : "5.72",
            "HTTP::Request" : "6.13",
            "HTTP::Request::Common" : "6.13",
            "IO::Scalar" : "2.111",
            "IO::Socket::SSL" : "1.968",
            "JSON" : "2.90",
            "LWP::UserAgent" : "6.26",
            "Log::Dispatch::Handle" : "2.65",
            "Log::Log4perl" : "1.49",
            "Log::LogMethods" : "1.0",
            "Modern::Perl" : "1.20170117",
            "Moo" : "2.003002",
            "MooX::Types::MooseLike::Base" : "0.29",
            "Net::SSLeay" : "1.84",
            "Ref::Util" : "0.203",

META.yml  view on Meta::CPAN

  AnyEvent::HTTP::MultiGet: '0'
  AnyEvent::WebSocket::Client: '0.39'
  B: '1.68'
  Carp: '1.42'
  Data::Dumper: '2.161'
  Data::Result: '1.0'
  Exporter: '5.72'
  HTTP::Request: '6.13'
  HTTP::Request::Common: '6.13'
  IO::Scalar: '2.111'
  IO::Socket::SSL: '1.968'
  JSON: '2.90'
  LWP::UserAgent: '6.26'
  Log::Dispatch::Handle: '2.65'
  Log::Log4perl: '1.49'
  Log::LogMethods: '1.0'
  Modern::Perl: '1.20170117'
  Moo: '2.003002'
  MooX::Types::MooseLike::Base: '0.29'
  Net::SSLeay: '1.84'
  Ref::Util: '0.203'

Makefile.PL  view on Meta::CPAN

use 5.010001;
use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME              => 'AnyEvent::SlackBot',
    VERSION_FROM      => 'lib/AnyEvent/SlackBot.pm', # finds $VERSION
    LICENSE=>'perl_5',
    PREREQ_PM         => {
    qw(
      IO::Socket::SSL 1.968
      Moo  2.003002
      overload 1.28
      Modern::Perl 1.20170117
      MooX::Types::MooseLike::Base 0.29
      Carp 1.42
      namespace::clean 0.27
      Data::Dumper  2.161
      Test::More    1.302073
      Data::Result  1.0
      Log::Log4perl 1.49

lib/AnyEvent/SlackBot.pm  view on Meta::CPAN

use namespace::clean;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request;
use URI::Escape;
use HTTP::Request::Common qw(POST);
use AnyEvent::HTTP::MultiGet;
use AnyEvent::WebSocket::Client;
use JSON;
use namespace::clean;
use IO::Socket::SSL;
our $VERSION='1.0005';

BEGIN { 
  no namespace::clean;
  with 'Log::LogMethods','Data::Result::Moo';
}
 

=head1 NAME

lib/AnyEvent/SlackBot.pm  view on Meta::CPAN

COnnects and starts running

=cut

sub connect_and_run {
  my ($self)=@_;
  my $request=POST $self->rtm_start_url,[token=>$self->token];
  my $ua=LWP::UserAgent->new;
  $ua->ssl_opts(
    SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
    SSL_hostname => '',
    verify_hostname => 0 
  );
  my $response=$ua->request($request);
  $self->{timer}=undef;
  if($response->code==200) {
     my $data=eval { from_json($response->decoded_content) };
     if($@) {
       return $self->new_false("Failed to decode response, error was: $@");
     }