WebService::Recruit::Shingaku::Pref - Recruit Shingaku net Web Service "pref" API

WebService-Recruit-Shingaku documentation Contained in the WebService-Recruit-Shingaku distribution.

Index

Code Index:

NAME

Top

WebService::Recruit::Shingaku::Pref - Recruit Shingaku net Web Service "pref" API

SYNOPSIS

Top

    use WebService::Recruit::Shingaku;

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

    my $param = {
        'key' => $ENV{'WEBSERVICE_RECRUIT_KEY'},
    };
    my $res = $service->pref( %$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 "pref: $data->pref\n";
    print "...\n";

DESCRIPTION

Top

This module is a interface for the pref API. It accepts following query parameters to make an request.

    my $param = {
        'key' => 'XXXXXXXX',
    };
    my $res = $service->pref( %$param );

$service above is an instance of WebService::Recruit::Shingaku.

METHODS

Top

root

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->pref
    $root->pref->[0]->code
    $root->pref->[0]->name

xml

This returns the raw response context itself.

    print $res->xml, "\n";

code

This returns the response status code.

    my $code = $res->code; # usually "200" when succeeded

is_error

This returns true value when the response has an error.

    die 'error!' if $res->is_error;

SEE ALSO

Top

WebService::Recruit::Shingaku

AUTHOR

Top

RECRUIT Media Technology Labs <mtl@cpan.org>

COPYRIGHT

Top

Copyright 2008 RECRUIT Media Technology Labs

WebService-Recruit-Shingaku documentation Contained in the WebService-Recruit-Shingaku distribution. 
package WebService::Recruit::Shingaku::Pref;

use strict;
use base qw( WebService::Recruit::Shingaku::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/shingaku/pref/v1/'; }

sub query_class { 'WebService::Recruit::Shingaku::Pref::Query'; }

sub query_fields { [
    'key'
]; }

sub default_param { {
    'format' => 'xml'
}; }

sub notnull_param { [
    'key'
]; }

sub elem_class { 'WebService::Recruit::Shingaku::Pref::Element'; }

sub root_elem { 'results'; }

sub elem_fields { {
    'error' => ['message'],
    'pref' => ['code', 'name'],
    'results' => ['api_version', 'results_available', 'results_returned', 'results_start', 'pref', 'api_version', 'error'],

}; }

sub force_array { [
    'pref'
]; }

# __PACKAGE__->mk_query_accessors();

@WebService::Recruit::Shingaku::Pref::Query::ISA = qw( Class::Accessor::Fast );
WebService::Recruit::Shingaku::Pref::Query->mk_accessors( @{query_fields()} );

# __PACKAGE__->mk_elem_accessors();

@WebService::Recruit::Shingaku::Pref::Element::ISA = qw( Class::Accessor::Children::Fast );
WebService::Recruit::Shingaku::Pref::Element->mk_ro_accessors( root_elem() );
WebService::Recruit::Shingaku::Pref::Element->mk_child_ro_accessors( %{elem_fields()} );


1;