File Coverage

blib/lib/WebService/DMM/Item.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	6	6	100.0
subroutine	9	9	100.0
pod	5	5	100.0
total	42	42	100.0

package WebService::DMM::Item;
use strict;
use warnings;

use Carp ();

use Class::Accessor::Lite (
    new => 1,
    ro => [ qw/service_name floor_name category_name
               content_id product_id title
               actors directors authors fighters
               price price_all list_price deliveries
               date keywords maker label sample_images
               jancode isbn stock series/ ],
);

sub image {
    my ($self, $type) = @_;

    unless ($type eq 'list' || $type eq 'small' || $type eq 'large') {
        Carp::croak("Invalid type '$type': it should be (list, small, large)");
    }

    return $self->{image}->{$type};
}

sub url { $_[0]->{URL}; }
sub url_sp { $_[0]->{URLsp} }
sub affiliate_url { $_[0]->{affiliateURL}; }
sub affiliate_url_sp { $_[0]->{affiliateURLsp} }

1;

__END__