Yet Another CPAN Grep

WebService-Flattr ( T/TO/TOMHUKINS/WebService-Flattr-0.55.tar.gz, TOMHUKINS, 2013; MetaCPAN )

WebService-Flattr/lib/WebService/Flattr.pm ( view source; MetaCPAN )

rvice::Flattr;
{
  $WebService::Flattr::VERSION = '0.55';
}

use strict;
use warnings;

use JSON 'decode_json';
use LWP::UserAgent ();
use URI ();
use URI::QueryParam ();
use URI::Template ();
use Web

, Accept => 'application/json');

    if ($resp->is_error) {
        die $resp->status_line;
    }

    return WebService::Flattr::Response->_new({
        data => decode_json $resp->content,

WebService-Flattr ( T/TO/TOMHUKINS/WebService-Flattr-0.55.tar.gz, TOMHUKINS, 2013; MetaCPAN )

WebService-Flattr/lib/WebService/Flattr/Response.pm ( view source; MetaCPAN )

   return bless $arg, $class;
}

=head2 data

This returns a data structure deserialised from the JSON part of the
response as defined by Flattr's API.

=cut

sub data {
    shift->{data};
}

=head2 h