nings;
use Pipe::Between::Object;
use LWP::UserAgent;
use HTTP::Request::Common qw(GET POST);
use JSON;
use utf8;
use Desktop::Notify;
use Encode::Guess qw/shiftjis euc-jp 7bit-jis/;
use Encode qw/fro
);
our $VERSION = '0.02';
# Preloaded methods go here.
our $ua = LWP::UserAgent->new;
our $json = JSON->new->allow_nonref;
sub new {#{{{
my $class = shift;
my $self = {
who => 'Net::Chaton::A
= POST($apilogin_url, [%postdata]);
my $responce = $ua->request($req);
my $decoded_responce = $json->decode($responce->content);
$self->{'post-uri'} = $decoded_responce->{'post-uri'};
$self->{'co