WebService::Recruit::Jalan - A Interface for Jalan Web Service
use WebService::Recruit::Jalan; my $jalan = WebService::Recruit::Jalan->new(); $jalan->key( 'xxxxxxxxxxxxxx' ); my $res = $jalan->HotelSearchAdvance( s_area => '260502' ); my $list = $res->root->Hotel; foreach my $hotel ( @$list ) { print "HotelID: ", $hotel->HotelID, "\n"; print "HotelName: ", $hotel->HotelName, "\n"; }
This module is a interface for the Jalan Web Service, produced by Recruit Co., Ltd., Japan. It provides five API methods: "HotelSearchLite", "HotelSearchAdvance", "AreaSearch", "OnsenSearch" and "StockSearch".
This is the constructor method for this class.
my $jalan = WebService::Recruit::Jalan->new();
This accepts optional parameters.
my $conf = { key => 'your_auth_key', utf8_flag => 1 }; my $jalan = WebService::Recruit::Jalan->new( %$conf );
A valid developer key is required to make a request.
$jalan->key( 'your_auth_key' );
This makes a request for HotelSearchLite API. See WebService::Recruit::Jalan::HotelSearchLite for details.
HotelSearchLite
my $res = $jalan->HotelSearchLite( s_area => '162612' );
This makes a request for HotelSearchAdvance API. See WebService::Recruit::Jalan::GetLandmark for details.
HotelSearchAdvance
my $res = $jalan->HotelSearchAdvance( s_area => '260502' );
This makes a request for AreaSearch API. See WebService::Recruit::Jalan::AreaSearch for details.
AreaSearch
my $res = $jalan->AreaSearch( reg => 15 );
This makes a request for OnsenSearch API. See WebService::Recruit::Jalan::OnsenSearch for details.
OnsenSearch
my $res = $jalan->OnsenSearch( s_area => '141602' );
This makes a request for StockSearch API. See WebService::Recruit::Jalan::StockSearch for details.
StockSearch
my $res = $jalan->StockSearch( lon_jgd => 139.758, lat_jgd => 35.666 );
This modules uses XML::TreePP module internally. Following methods are available to configure it.
$jalan->utf8_flag( 1 ); $jalan->user_agent( 'Foo-Bar/1.0 ' ); $jalan->lwp_useragent( LWP::UserAgent->new() ); $jalan->http_lite( HTTP::Lite->new() );
http://jws.jalan.net/
Yusuke Kawasaki http://www.kawa.net/
This module is unofficial and released by the author in person.
Copyright (c) 2007 Yusuke Kawasaki. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install WebService::Recruit::Jalan, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WebService::Recruit::Jalan
CPAN shell
perl -MCPAN -e shell install WebService::Recruit::Jalan
For more information on module installation, please visit the detailed CPAN module installation guide.