WebService::Yes24::Item - Item of Yes24 Web Service Search Result
version 0.100980
use 5.010; use WebService::Yes24; my $yes24 = WebService::Yes24->new; $yes24->search( "Learning Perl" ); for my $item ( @{ $yes24->result } ) { say $item->title; say $item->cover; say $item->author; say $item->publisher; say $item->date; say $item->price; say $item->mileage; say $item->link; } my $total = $yes24->search( "Perl" ); my $last_page = ($total / $yes24->page_size) + 1; for my $page ( 1 .. $last_page ) { for my $result ( @{ $yes24->result($page) } ) { say $item->title; say $item->cover; say $item->author; say $item->publisher; say $item->date; say $item->price; say $item->mileage; say $item->link; } }
This module is a search result object of WebService::Yes24. See the WebService::Yes24.
This attribute stores the title.
This attribute stores the cover.
This attribute stores the author.
This attribute stores the publisher.
This attribute stores the date.
This attribute stores the price.
This attribute stores the mileage.
This attribute stores the link.
my $item = WebService::Yes24::Item->new( title => 'Learning Perl (Hardcover, 5, English)', cover => 'http://image.yes24.com/momo/TopCate75/MidCate08/7479928.jpg', author => 'Tom Phoenix, Randal L. Schwartz, Brian d Foy', publisher => 'O\'Reilly', date => '2008-07', price => '41800', mileage => '2090', link => 'http://www.yes24.com/24/goods/2884380?scode=032&srank=1', );
This method will create and return WebService::Yes24::Item object.
Usually, you do not need to create your own object. Instead, use these attributes to get from search result of the WebService::Yes24::Item.
my $yes24 = WebService::Yes24->new; $yes24->search( "Learning Perl" ); for my $item ( @{ $yes24->result } ) { say $item->title; say $item->cover; say $item->author; say $item->publisher; say $item->date; say $item->price; say $item->mileage; say $item->link; }
Keedi Kim - 김도형 <keedi at cpan.org>
This software is copyright (c) 2010 by Keedi Kim.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
To install WebService::Yes24, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WebService::Yes24
CPAN shell
perl -MCPAN -e shell install WebService::Yes24
For more information on module installation, please visit the detailed CPAN module installation guide.