NAME

WebService::Yes24::Item - Item of Yes24 Web Service Search Result

VERSION

version 0.100980

SYNOPSIS

    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;
        }
    }

DESCRIPTION

This module is a search result object of WebService::Yes24. See the WebService::Yes24.

ATTRIBUTES

title

This attribute stores the title.

cover

This attribute stores the cover.

author

This attribute stores the author.

publisher

This attribute stores the publisher.

date

This attribute stores the date.

price

This attribute stores the price.

mileage

This attribute stores the mileage.

link

This attribute stores the link.

METHODS

new

    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;
    }

AUTHOR

  Keedi Kim - 김도형 <keedi at cpan.org>

COPYRIGHT AND LICENSE

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.

cpanm WebService::Yes24

perl -MCPAN -e shell
install WebService::Yes24