Yet Another CPAN Grep

Net-RocketChat ( D/DA/DALEEVANS/Net-RocketChat-0.002.tar.gz, DALEEVANS, 2016; MetaCPAN )

Net-RocketChat/lib/Net/RocketChat.pm ( view source; MetaCPAN )

le scripts in the distribution.

=cut

use Moose;
use Method::Signatures;
use LWP::UserAgent;
use JSON;
use YAML;

=head1 ATTRIBUTES

=over

=item debug

If debug is set, lots of stuff will get dumped

$self->debug) {
      print STDERR Dump($self->response);
   }
   my $json = decode_json($self->response->content);
   return $json->{versions};
}

=item login

Logs in.

=cut

method login {
   $self

int STDERR Dump($self->response);
   }
   my $json = decode_json($self->response->content);
   my $userId = $json->{data}{userId};
   my $authToken = $json->{data}{authToken};
   $self->userId($userId