File Coverage

blib/lib/WebService/Shutterstock/SearchResult/Video.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch			n/a
condition	4	9	44.4
subroutine	7	7	100.0
pod	1	2	50.0
total	35	41	85.3

package WebService::Shutterstock::SearchResult::Video;
{
  $WebService::Shutterstock::SearchResult::Video::VERSION = '0.006';
}

# ABSTRACT: Class representing a single video search result from the Shutterstock API

use strict;
use warnings;
use Moo;

use WebService::Shutterstock::HasClient;
use WebService::Shutterstock::SearchResult::Item;

with 'WebService::Shutterstock::HasClient', 'WebService::Shutterstock::SearchResult::Item';



sub BUILDARGS {
	my $class = shift;
	my $args = $class->SUPER::BUILDARGS(@_);
	$args->{thumb_video} ||= $args->{sizes}->{thumb_video};
	$args->{preview_video} ||= $args->{sizes}->{preview_video};
	$args->{preview_image_url} ||= $args->{sizes}->{preview_image}->{url};
	return $args;
}

has video_id => ( is => 'ro' ); # sic, should be image_id to be consistant I think

has thumb_video => ( is => 'ro' );
has preview_video => ( is => 'ro' );
has preview_image_url => ( is => 'ro' );

has submitter_id => ( is => 'ro' );
has duration => ( is => 'ro' );
has aspect_ratio_common => ( is => 'ro' );
has aspect => ( is => 'ro' );


sub video {
	my $self = shift;
	return $self->new_with_client( 'WebService::Shutterstock::Video', %$self );
}

1;

__END__