File Coverage

blib/lib/WebService/MoviePosterDB/Poster.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	19	19	100.0

# $Id: Poster.pm 6486 2011-06-13 13:42:02Z chris $

=head1 NAME

WebService::MoviePosterDB::Poster

=head1 SYNOPSIS

=head1 DESCRIPTION

=cut

package WebService::MoviePosterDB::Poster;

use strict;
use warnings;

our $VERSION = '0.18';

use base qw(Class::Accessor);

__PACKAGE__->mk_accessors(qw(
    image_location
));

sub _new {
    my $class = shift;
    my $json = shift;
    my $self = {};

    bless $self, $class;

    $self->image_location($json->{'image_location'});

    return $self;
}

=head1 METHODS

=head2 image_location()

=cut

1;