File Coverage

blib/lib/WebService/Shutterstock/AuthedClient.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	32	32	100.0

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

# ABSTRACT: Role comprising a REST client with the necessary auth token information

use strict;
use warnings;
use Moo::Role;

use WebService::Shutterstock::HasClient;
with 'WebService::Shutterstock::HasClient';


has auth_info => ( is => 'ro', required => 1 );



sub auth_token { return shift->auth_info->{auth_token} }
sub username   { return shift->auth_info->{username} }


sub new_with_auth {
	my $self = shift;
	my $class = shift;
	return $self->new_with_client( $class, @_, auth_info => $self->auth_info );
}


sub with_auth_params {
	my $self = shift;
	my %other = @_;
	return { %other, auth_token => $self->auth_token };
}

1;

__END__