File Coverage

blib/lib/WebService/Shutterstock/Subscription.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	10	10	100.0
pod	3	3	100.0
total	47	51	92.1

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

# ABSTRACT: Class representing a subscription for a specific Shutterstock customer

use strict;
use warnings;
use Moo;
use JSON qw(encode_json);
use WebService::Shutterstock::LicensedImage;
use Carp qw(croak);

use WebService::Shutterstock::AuthedClient;
with 'WebService::Shutterstock::AuthedClient';


has id => ( is => 'ro', required => 1, init_arg => 'subscription_id' );
my @fields = qw(
	  unix_expiration_time
	  current_allotment
	  description
	  license
	  sizes
	  site
	  expiration_time
		price_per_download
);
foreach my $f(@fields){
	has $f => ( is => 'ro' );
}


sub sizes_for_licensing {
	my $self = shift;
	my %uniq;
	return
	  grep { !$uniq{$_}++ }
	  map  { $_->{name} }
	  grep { $_->{name} ne 'supersize' && (!$_->{format} || $_->{format} ne 'tiff') }
	  values %{ $self->sizes || {} };
}


sub is_active {
	my $self = shift;
	return $self->unix_expiration_time > time;
}


sub is_expired {
	return !shift->is_active;
}

1;

__END__