CPAN::Groonga

he B<error()> method to get an error message as to why it failed.
Otherwise, they should return a JSON-decoded hashref as is directly from
filecloud.io (which may also contain an error).

=head2 fetch

 API itself.

  $error = $websvc->error() if ( !$result );

=head1 SEE ALSO

L<LWP::UserAgent>,
L<JSON>

L<http://filecloud.io> and L<https://code.google.com/p/filecloud/>

=head1 AUTHOR

Mitch McCrac

package WebService::FileCloud;

use strict;
use warnings;

use JSON;
use LWP::UserAgent;
use HTTP::Request::Common qw( $DYNAMIC_FILE_UPLOAD );

our $VERSION = '0.3';

use constant BASE_URI => 'http://

	@_};

    $self->{'ua'} = LWP::UserAgent->new( timeout => $self->{'timeout'} );
    $self->{'json'} = JSON->new();

    bless( $self, $class );

    return $self;
}

sub fetch_apikey {

    my ( $sel

        $self->{'error'} = $response->status_line();
        return;
    }

    return $self->{'json'}->decode( $response->decoded_content() );
}

sub fetch_account_details {

    my ( $self, %args