File Coverage

blib/lib/WWW/Asana/Role/HasClient.pm
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 6 100.0


line stmt bran cond sub pod time code
1             package WWW::Asana::Role::HasClient;
2             BEGIN {
3 1     1   21962 $WWW::Asana::Role::HasClient::AUTHORITY = 'cpan:GETTY';
4             }
5             {
6             $WWW::Asana::Role::HasClient::VERSION = '0.003';
7             }
8             # ABSTRACT: Role for a class which has a WWW::Asana client
9              
10 1     1   914 use MooX::Role;
  1         191  
  1         5  
11              
12             has client => (
13             is => 'ro',
14             isa => sub {
15             die "client must be a WWW::Asana" unless ref $_[0] eq 'WWW::Asana';
16             },
17             predicate => 'has_client',
18             handles => [qw(
19             do
20             )],
21             );
22              
23             1;
24             __END__