File Coverage

blib/lib/WebService/Aladdin.pm

Criterion	Covered	Total	%
statement	32	38	84.2
branch	1	4	25.0
condition	1	2	50.0
subroutine	9	10	90.0
pod	3	3	100.0
total	46	57	80.7

package WebService::Aladdin;

use strict;
use warnings;
use LWP::UserAgent;
use URI;
use Carp;
use WebService::Aladdin::Parser;

use vars qw($VERSION);
$VERSION = '0.08';

my $api_url_search = "http://www.aladdin.co.kr/ttb/api/search.aspx";
my $api_url_product = "http://www.aladdin.co.kr/ttb/api/ItemLookUp.aspx";

sub new {
    my ($class, $ttbkey) = @_;

    $ttbkey ||= 'ttbjeen1333001';
    my $ua = LWP::UserAgent->new;
    $ua->agent('WebService::Aladdin / '.$VERSION);
    bless {
        TTBKey => $ttbkey,
        ua     => $ua,
    }, $class;
}

sub product {
    my ($self, $id, $args) = @_;

    my $uri = URI->new($api_url_product);

    croak 'ItemId is required' unless $id;

    $uri->query_form( TTBKey => $self->{TTBKey},
              ItemId => $id,
              Output  => 'OS',
    );
    my $res = $self->{ua}->get($uri);
    WebService::Aladdin::Parser->parse_product($res);
}

sub search {
    my ($self, $keyword, $args) = @_;

    my $uri = URI->new($api_url_search);

    croak 'Query is required' unless $keyword;

    $uri->query_form( Query => $keyword,
                      TTBKey => $self->{TTBKey},
                      QueryType => $args->{QueryType},
                      SearchTarget => $args->{SearchTarget},
                      Start => $args->{Start},
                      MaxResults => $args->{MaxResults},
                      Sort => $args->{Sort},
                      Cover => $args->{Cover},
                      TitleCut => $args->{TitleCut},
                      CategoryId => $args->{CategoryId},
                      Partner => $args->{Partner},
    );

    my $res = $self->{ua}->get($uri);
    WebService::Aladdin::Parser->parse_search($res);
}

1;
__END__