rnings;
use strict;
use Carp;
use DateTime::Format::Mail;
use HTML::Tiny;
use HTTP::Cookies;
use JSON;
use Data::Dumper;
use LWP::UserAgent;
use Time::Piece;
use WWW::Plurk::Friend;
use WWW::Plurk::M
_success
or $resp->is_redirect;
return $resp;
}
sub _json_post {
my $self = shift;
return $self->_decode_json( $self->_post( @_ )->content );
}
sub _get {
my ( $self, $serv
s_success
or $resp->is_redirect;
return $resp;
}
sub _json_get {
my $self = shift;
return $self->_decode_json( $self->_get( @_ )->content );
}
=head2 C<< login >>
Attempt to l