view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

1.0001
  -- Inital Release
1.0002
  -- Http posts now show up correctly in stats
1.003
  -- set ssl loose for connecting to the internet
1.004
  -- Changed min version of Data::Dumper to 2.161
  -- Added perl 5 licence
1.005
  -- added Net::SSLeay as a required module

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

=item * $self->connect_and_run

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: $@");