e 5.001;
use strict;
use warnings;
use HTTP::Cookies;
use HTTP::Response;
use LWP::UserAgent;
use JSON;
use utf8;
use vars qw($VERSION $errstr);
binmode STDOUT, ":utf8";
binmode STDERR, ":utf8";
###
ass = shift;
my $self = { @_ };
($self->{user}, $self->{pass}) = (shift, shift);
$self->{json} = new JSON;
if (!$self->{user} || !$self->{pass}){
$WWW::Geni::errstr = "Username and password are
rl) = (shift, shift);
my $res = $self->{ua}->get($url);
if ($res->is_success){
return $self->{json}->allow_nonref->relaxed->decode($res->decoded_content);
} else {
$WWW::Geni::errstr = $res->st