lib/Joker.pm
changeset 5 21e23104454c
parent 4 08a632c3244f
child 11 7326d2e9b3a7
--- a/lib/Joker.pm	Fri Aug 08 16:35:25 2014 +0200
+++ b/lib/Joker.pm	Sun Dec 21 18:02:02 2014 +0100
@@ -8,6 +8,7 @@
 use Moose;
 use MooseX::SemiAffordanceAccessor;
 use LWP::UserAgent;
+use Joker::Result;
 
 has [qw(username password)] => (
     isa => 'Str',
@@ -44,7 +45,7 @@
 	GET => $self->uri . "$type?" .  join '&', map { "$_=$parm{$_}" } keys %parm);
     my $result = $self->ua->request($req);
     croak $result->status_line if not $result->is_success;
-    return $result->content;
+    return Joker::Result->new(response => $result->content);
 }
 
 sub login {
@@ -61,4 +62,4 @@
     croak q{Can't get Auth-Sid};
 }
 
-1;
+__PACKAGE__->meta->make_immutable;