#!perl -T
my
$api
= WebService::KakakuCom->new;
ok
$api
;
ok
$api
->ua;
isa_ok
$api
->ua,
'LWP::UserAgent'
;
is
$api
->ua->agent,
sprintf
"%s/%s"
,
'WebService::KakakuCom'
, WebService::KakakuCom->VERSION;
my
$rs
=
$api
->search(
'Vaio'
);
ok
$rs
;
isa_ok
$rs
,
'WebService::KakakuCom::ResultSet'
;
isa_ok
$rs
->[0],
'WebService::KakakuCom::Product'
;
ok
$rs
->pager;
isa_ok
$rs
->pager,
'Data::Page'
;
ok
$rs
->pager->total_entries > 0;
is
$rs
->pager->current_page, 1;
is
$rs
->pager->next_page, 2;
$rs
=
$api
->search(
'Vaio'
, {
PageNum
=> 2 });
ok
$rs
;
ok
$rs
->pager;
is
$rs
->pager->current_page, 2;
is
$rs
->pager->next_page, 3;
ok
@$rs
> 0;
ok
$rs
->[0]->ProductName;
my
$product
=
$api
->product(
$rs
->[0]->ProductID);
ok
$product
;
isa_ok
$rs
->[0],
'WebService::KakakuCom::Product'
;
is
$rs
->[0]->ProductName,
$product
->ProductName;