File Coverage

blib/lib/Lego/Part/Image/BricklinkCom.pm

Criterion	Covered	Total	%
statement	19	20	95.0
branch	3	4	75.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	28	30	93.3

package Lego::Part::Image::BricklinkCom;

use base qw(Lego::Part::Image);
use strict;
use warnings;

use Error::Pure qw(err);

our $VERSION = 0.06;

# Get image URL.
sub image_url {
	my $self = shift;

	if (! defined $self->{'part'}->design_id) {
		err "Design ID doesn't defined.";
	}
	my $url;
	if (defined $self->{'part'}->color) {
		$url = sprintf 'https://img.bricklink.com/ItemImage/PN/%s/%s.png',
			$self->{'part'}->color, $self->{'part'}->design_id;
	} else {
		$url = sprintf 'https://img.bricklink.com/ItemImage/PL/%s.png',
			$self->{'part'}->design_id;
	}

	return $url;
}

1;

__END__