NAME

WebService::Buxfer::Response

SYNOPSIS

    my $response = WebService::Buxfer::Response->new(
        $lwp_ua->request(
            GET 'https://www.buxfer.com/transactions.json?token=XXX'
        )
        );

    exit 1 unless $response->ok;

    foreach ( $response->content->{response}->{transactions} ) {
        print "Result: ".Data::Dumper::Dumper($_)."\n";
    }

DESCRIPTION

This is a simple class to encapsulate responses from the Buxfer webservice.

ACCESSORS

• raw_response - the raw HTTP::Response object.

• content - a hashref of deserialized JSON data from the response.

METHODS

new( $response )

Given an HTTP::Response object, it will parse the returned data as required.

buxfer_status( )

Returns the status string from Buxfer.

ok( )

Parses buxfer_status() and checks the HTTP::Response status to determine if the request was successful.

TODO

Move some of the logic out of WebService::Buxfer into here.

Add a pager for flipping through transactions based on 25 results per page and numTransactions in the response.

ACKNOWLEDGEMENTS

Portions of this package borrowed/adapted from the WebService::Solr::Response code.

Thanks to Brian Cassidy and Kirk Beers for that package.

AUTHORS

Nathaniel Heinrichs <nheinric@cpan.org>

COPYRIGHT AND LICENSE

 Copyright (c) 2009 Nathaniel Heinrichs.
 This program is free software; you can redistribute it and/or
 modify it under the same terms as Perl itself.