WebService::Gnavi使ってみた

http://d.hatena.ne.jp/lestrrat/20070510#1178769165
ページャーがなんか変。

#!/usr/bin/perl
use strict;
use warnings;
use WebService::Gnavi;
use YAML;

my $gnavi = WebService::Gnavi->new(
    access_key => '...'
);
my $res   = $gnavi->search({
    category_l => 'CTG200', # 洋食
    pref       => 'PREF13', # 東京
});
print Dump $res->pager;

--- !!perl/hash:Data::Page
current_page: !!perl/scalar:XML::LibXML::Element 151243992
entries_per_page: !!perl/scalar:XML::LibXML::Element 151097952
total_entries: !!perl/scalar:XML::LibXML::Element 151375288

バージョンは0.011です。
WebService::Gnavi - Use Gnavi API From Perl - metacpan.org

• • -

追記：Data::Pageをnewするところを変更したら直った。

$ diff /usr/lib/perl5/site_perl/5.8.8/WebService/Gnavi/SearchResult.pm lib/WebService/Gnavi/SearchResult.pm
16,18c16,18
<         $xml->findnodes('/response/total_hit_count'),
<         $xml->findnodes('/response/hit_per_page'),
<         $xml->findnodes('/response/page_offset')
---
>         $xml->findvalue('/response/total_hit_count'),
>         $xml->findvalue('/response/hit_per_page'),
>         $xml->findvalue('/response/page_offset')

• • -

追記：0.02で修正されました！
WebService-Gnavi-0.02 - Use Gnavi API From Perl - metacpan.org