/ 
WebService-Zussar-v0.0.1
/ WebService::Zussar

NAME

WebService::Zussar - Zussar API wrapper module for perl

SYNOPSIS

use WebService::Zussar->new( encoding => 'utf8' );

my $zussar = WebService::Zussar;

# Request event
$zussar->fetch( 'event', keyword => 'perl' );

# Print each events title
while ( my $event = $zussar->next ){
      print $event->title . "\n";
}

# Request event/user
$zussar->fetch( 'event/user', event_id => '476003' );

while ( my $event = $zussar->next ){
  # Print each users of event
  foreach my $user( @{$event->users} ){
      print $user->nickname . "\n";
  }
}

INSTALLATION

$ git clone git://github.com/mugifly/WebService-Zussar.git
$ cpanm ./WebService-Zussar

METHODS

new ( [%params] )

Create an instance of WebService::Zussar.

%params = (optional) LWP::UserAgent options, and encoding (example: encoding => 'utf8').

fetch ( $api_path [, %params] )

Send request to Zussar API. Also, this method has supported a fetch like 'Auto-Pager'.

  • $api_path = Path of request to Zussar API. Currently available: "event" or "event/user".

  • %params = Query parameter.

About the query, please see: http://www.zusaar.com/doc/api.html

About the fetch like 'AutoPager'

You can fetch all search results, by such as this code:

# Request event
$zussar->fetch( 'event' );

# Print each events title
while ( my $event = $zussar->next ){
      print $event->title . "\n";
}

In the case of default, you can fetch max 10 items by single request to Zussar API. However, this module is able to fetch all results by repeat request, automatically.

Also, you can disable this function, by specifying an option(disable_nextpage_fetch => 1) when call a constructor:

my $zussar = WebService::Zussar->new(disable_nextpage_fetch => 1);

# Request event
$zussar->fetch( 'event' );

# Print each events title
while ( my $event = $zussar->next ){
      print $event->title . "\n";
}

In this case, you can fetch max 10 items.

But also, you can fetch more items by causing a 'fetch' method again with 'start' parameter:

# Request the event of the remaining again
$zussar->fetch( 'event', start => 10 ); # Fetch continue after 10th items.

next

Get a next item, from the fetched items in instance.

prev

Get a previous item, from the fetched items in instance.

iter

set or get a position of iterator.

SEE ALSO

https://github.com/mugifly/WebService-Zussar/ - Your feedback is highly appreciated.

DateTime::Format::ISO8601

Hash::AsObject

LWP::UserAgent

WebService::ATND - https://github.com/ytnobody/WebService-ATND/ (Maybe you can use this library with an almost similar code.)

COPYRIGHT AND LICENSE

Copyright (C) 2013, Masanori Ohgita (http://ohgita.info/).

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

I wrote this library with referred to the library that was written by ytnobody. Thank you.

Thanks, Perl Mongers & CPAN authors.