------------------------------------------------------
# Library Modules
use WWW::Mechanize;
use JSON::XS;
#----------------------------------------------------------------------------
# Variables
$mech->content;
}
sub _parse {
my $self = shift;
my $data;
eval { $data = decode_json($self->{content}) };
return $data unless($@ || !$data);
$self->{error} = $@ || 'no da