diff -r 08a632c3244f -r 21e23104454c lib/Joker.pm --- 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;