File Coverage

blib/lib/WebService/Shutterstock/HasClient.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package WebService::Shutterstock::HasClient;
2             {
3             $WebService::Shutterstock::HasClient::VERSION = '0.006';
4             }
5              
6             # ABSTRACT: Role managing a client attribute
7              
8 12     12   72 use strict;
  12         25  
  12         631  
9 12     12   68 use warnings;
  12         24  
  12         339  
10 12     12   11343 use Moo::Role;
  12         157059  
  12         75  
11              
12              
13             has client => ( is => 'ro', required => 1 );
14              
15              
16             sub new_with_client {
17 21     21 1 41 my $self = shift;
18 21         35 my $class = shift;
19 21         535 return $class->new( client => $self->client, @_ );
20             }
21              
22             1;
23              
24             __END__