NAME

WebService::Recruit::Akasugu - An Interface for Akasugu.net Web Service

SYNOPSIS

use WebService::Recruit::Akasugu;

my $service = WebService::Recruit::Akasugu->new();

my $param = {
    'key' => $ENV{'WEBSERVICE_RECRUIT_KEY'},
    'large_category_cd' => '2',
};
my $res = $service->item( %$param );
my $root = $res->root;
printf("api_version: %s\n", $root->api_version);
printf("results_available: %s\n", $root->results_available);
printf("results_returned: %s\n", $root->results_returned);
printf("results_start: %s\n", $root->results_start);
printf("item: %s\n", $root->item);
print "...\n";

DESCRIPTION

赤すぐnetに掲載されている商品をさまざまな検索軸で探せる商品情報APIです。

METHODS

new

This is the constructor method for this class.

my $service = WebService::Recruit::Akasugu->new();

This accepts optional parameters.

my $conf = {
    utf8_flag => 1,
    param => {
        # common parameters of this web service 
    },
};
my $service = WebService::Recruit::Akasugu->new( %$conf );

add_param

Add common parameter of tihs web service.

$service->add_param( param_key => param_value );

You can add multiple parameters by calling once.

$service->add_param( param_key1 => param_value1,
                     param_key2 => param_value2,
                     ...);

get_param

Returns common parameter value of the specified key.

my $param_value = $service->get( 'param_key' );

item

This makes a request for item API. See WebService::Recruit::Akasugu::Item for details.

my $res = $service->item( %$param );

large_category

This makes a request for large_category API. See WebService::Recruit::Akasugu::LargeCategory for details.

my $res = $service->large_category( %$param );

middle_category

This makes a request for middle_category API. See WebService::Recruit::Akasugu::MiddleCategory for details.

my $res = $service->middle_category( %$param );

small_category

This makes a request for small_category API. See WebService::Recruit::Akasugu::SmallCategory for details.

my $res = $service->small_category( %$param );

age

This makes a request for age API. See WebService::Recruit::Akasugu::Age for details.

my $res = $service->age( %$param );

utf8_flag / user_agent / lwp_useragent / http_lite

This modules uses XML::TreePP module internally. Following methods are available to configure it.

$service->utf8_flag( 1 );
$service->user_agent( 'Foo-Bar/1.0 ' );
$service->lwp_useragent( LWP::UserAgent->new() );
$service->http_lite( HTTP::Lite->new() );

SEE ALSO

http://webservice.recruit.co.jp/akasugu/

AUTHOR

RECRUIT Media Technology Labs <mtl@cpan.org>

COPYRIGHT

Copyright 2008 RECRUIT Media Technology Labs

cpanm WebService::Recruit::Akasugu

perl -MCPAN -e shell
install WebService::Recruit::Akasugu