WebService::Recruit::Shingaku::License - Recruit Shingaku net Web Service "license" API

    use WebService::Recruit::Shingaku;

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

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

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

    my $param = {
        'key' => 'XXXXXXXX',
        'code' => 'a1010',
        'keyword' => '東京 広告',
        'start' => 'XXXXXXXX',
        'count' => 'XXXXXXXX',
    };
    my $res = $service->license( %$param );

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

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->license
    $root->license->[0]->code
    $root->license->[0]->name
    $root->license->[0]->desc
    $root->license->[0]->subject
    $root->license->[0]->work
    $root->license->[0]->urls
    $root->license->[0]->subject->[0]->code
    $root->license->[0]->subject->[0]->name
    $root->license->[0]->work->[0]->code
    $root->license->[0]->work->[0]->name
    $root->license->[0]->urls->mobile
    $root->license->[0]->urls->pc
    $root->license->[0]->urls->qr

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;

WebService::Recruit::Shingaku

RECRUIT Media Technology Labs <mtl@cpan.org>

Copyright 2008 RECRUIT Media Technology Labs