| WebService-Recruit-Eyeco documentation | Contained in the WebService-Recruit-Eyeco distribution. |
WebService::Recruit::Eyeco::SmallCategory - Eyeco Web Service "small_category" API
use WebService::Recruit::Eyeco;
my $service = WebService::Recruit::Eyeco->new();
my $param = {
'key' => $ENV{'WEBSERVICE_RECRUIT_KEY'},
};
my $res = $service->small_category( %$param );
my $data = $res->root;
print "api_version: $data->api_version\n";
print "results_available: $data->results_available\n";
print "results_returned: $data->results_returned\n";
print "results_start: $data->results_start\n";
print "small_category: $data->small_category\n";
print "...\n";
This module is a interface for the small_category API.
It accepts following query parameters to make an request.
my $param = {
'key' => 'XXXXXXXX',
'large_code' => '102',
'small_code' => '102004',
'keyword' => 'ベビー',
};
my $res = $service->small_category( %$param );
$service above is an instance of WebService::Recruit::Eyeco.
This returns the root element of the response.
my $root = $res->root;
You can retrieve each element by the following accessors.
$root->api_version
$root->results_available
$root->results_returned
$root->results_start
$root->small_category
$root->small_category->[0]->code
$root->small_category->[0]->name
$root->small_category->[0]->large_category
$root->small_category->[0]->large_category->code
$root->small_category->[0]->large_category->name
This returns the raw response context itself.
print $res->xml, "\n";
This returns the response status code.
my $code = $res->code; # usually "200" when succeeded
This returns true value when the response has an error.
die 'error!' if $res->is_error;
RECRUIT Media Technology Labs <mtl@cpan.org>
Copyright 2008 RECRUIT Media Technology Labs
| WebService-Recruit-Eyeco documentation | Contained in the WebService-Recruit-Eyeco distribution. |
package WebService::Recruit::Eyeco::SmallCategory; use strict; use base qw( WebService::Recruit::Eyeco::Base ); use vars qw( $VERSION ); use Class::Accessor::Fast; use Class::Accessor::Children::Fast; $VERSION = '0.0.1'; sub http_method { 'GET'; } sub url { 'http://webservice.recruit.co.jp/eyeco/small_category/v1/'; } sub query_class { 'WebService::Recruit::Eyeco::SmallCategory::Query'; } sub query_fields { [ 'key', 'large_code', 'small_code', 'keyword' ]; } sub default_param { { 'format' => 'xml' }; } sub notnull_param { [ 'key' ]; } sub elem_class { 'WebService::Recruit::Eyeco::SmallCategory::Element'; } sub root_elem { 'results'; } sub elem_fields { { 'error' => ['message'], 'large_category' => ['code', 'name'], 'results' => ['api_version', 'results_available', 'results_returned', 'results_start', 'small_category', 'api_version', 'error'], 'small_category' => ['code', 'name', 'large_category'], }; } sub force_array { [ 'small_category' ]; } # __PACKAGE__->mk_query_accessors(); @WebService::Recruit::Eyeco::SmallCategory::Query::ISA = qw( Class::Accessor::Fast ); WebService::Recruit::Eyeco::SmallCategory::Query->mk_accessors( @{query_fields()} ); # __PACKAGE__->mk_elem_accessors(); @WebService::Recruit::Eyeco::SmallCategory::Element::ISA = qw( Class::Accessor::Children::Fast ); WebService::Recruit::Eyeco::SmallCategory::Element->mk_ro_accessors( root_elem() ); WebService::Recruit::Eyeco::SmallCategory::Element->mk_child_ro_accessors( %{elem_fields()} );
1;