our $URL = 'http://70.84.157.157/api.php';
+our $AUTOLOAD;
+
=head1 SYNOPSIS
use Net::Vitelity;
#XXX md5 encrypt pass
- $ua->post($URL, {
+ my $response = $ua->post($URL, {
login => $self->{login},
- pass => $self=>{pass}
+ pass => $self->{pass},
cmd => $cmd,
@_,
}
my $content = $response->decoded_content;
#dear vitelity api: why does this make it easier to parse?
- $content =~ s/^x\[\[/;
- $content =~ s/\[\[x$/;
+ $content =~ s/^x\[\[//;
+ #$content =~ s/\[\[x$//;
+ $content =~ s/\]\]x$//;
wantarray ? split("\n", $content) : $content;