The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package WebService::Shutterstock::HasClient;
BEGIN {
  $WebService::Shutterstock::HasClient::AUTHORITY = 'cpan:BPHILLIPS';
}
{
  $WebService::Shutterstock::HasClient::VERSION = '0.002';
}

# ABSTRACT: Role managing a client attribute

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


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


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

1;

__END__

=pod

=head1 NAME

WebService::Shutterstock::HasClient - Role managing a client attribute

=head1 VERSION

version 0.002

=head1 DESCRIPTION

This role serves a similar purpose as L<WebService::Shutterstock::AuthedClient>
by providing a simple way to create a new object with the C<client>
object managed by this role.

You should not need to use this role in order to use L<WebService::Shutterstock>.

=head1 ATTRIBUTES

=head2 client

The L<WebService::Shutterstock::Client> object contained within

=head1 METHODS

=head2 new_with_client

=head1 AUTHOR

Brian Phillips <bphillips@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Brian Phillips and Shutterstock, Inc. (http://shutterstock.com).

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut