correct multiple errors to render code executable

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/Net/Vitelity.pm b/lib/Net/Vitelity.pm
index d0ef45e..b43818b 100644
--- a/lib/Net/Vitelity.pm
+++ b/lib/Net/Vitelity.pm
@@ -17,6 +17,8 @@ our $VERSION = '0.01';
 
 our $URL = 'http://70.84.157.157/api.php';
 
+our $AUTOLOAD;
+
 =head1 SYNOPSIS
 
     use Net::Vitelity;
@@ -45,9 +47,9 @@ sub AUTOLOAD {
 
   #XXX md5 encrypt pass
 
-  $ua->post($URL, {
+  my $response = $ua->post($URL, {
                     login => $self->{login}, 
-                    pass  => $self=>{pass}
+                    pass  => $self->{pass},
                     cmd   => $cmd,
                     @_,
                   }
@@ -60,8 +62,9 @@ sub AUTOLOAD {
   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;