--- 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;