NAME

WebService::Simple - Simple interface to Web Services APIs

VERSION

This document describes WebService::Simple version 0.02

SYNOPSIS

    use WebService::Simple;

    my $flickr = WebService::Simple->new(
        base_url => "http://api.flickr.com/services/rest/",
        param    => { api_key => "your_api_key", }
    );
    my $response =
      $flickr->get( { method => "flickr.test.echo", name => "value" } );
    my $ref = $response->parse_xml( { forcearray => [], keyattr => [] } );
    print $ref->{name} . "\n";

DESCRIPTION

WebService::Simple provides you a simple interface to Web Services APIs

METHODS

new(%args)

    my $flickr = WebService::Simple->new(
        base_url => "http://api.flickr.com/services/rest/",
        param    => { api_key => "your_api_key", }
    );

Create and return a new WebService::Simple object. "new" Method requires a base_url of Web Service API.

get(%args)

    my $response =
      $flickr->get( { method => "flickr.test.echo", name => "value" } );

Get the WebService::Simple::Response object.

If you want to add a path to base URL, use an option parameter.

    my $lingr = WebService::Simple->new(
        base_url => "http://www.lingr.com/",
        param    => { api_key => "your_api_key", format => "xml" }
    );
    my $response = $lingr->get( {}, { path => "/api/session/create" } );

CACHING

Cache the response of Web Service APIs by using Cache object. Here's an example.

    my $cache = Cache::File->new(
        cache_root      => "/tmp/mycache",
        default_expires => "30 min",
    );

    my $flickr = WebService::Simple->new(
        base_url => "http://api.flickr.com/services/rest/",
        cache    => $cache,
        param    => { api_key => $api_key, }
    );

AUTHOR

Yusuke Wada <yusuke@kamawada.com>

LICENCE AND COPYRIGHT

Copyright (c) 2008 Yusuke Wada, All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.