Keedi Kim > WebService-Yes24-0.100980 > WebService::Yes24::Item

Download:
WebService-Yes24-0.100980.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.100980   Source  

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.

syntax highlighting: