File Coverage

blib/lib/Cfn/Resource/AWS/IAM/AccessKey.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1 2     2   1253 use Moose::Util::TypeConstraints;
  2         8  
  2         21  
2              
3             coerce 'Cfn::Resource::Properties::AWS::IAM::AccessKey',
4             from 'HashRef',
5             via { Cfn::Resource::Properties::AWS::IAM::AccessKey->new( %$_ ) };
6              
7             package Cfn::Resource::AWS::IAM::AccessKey {
8 2     2   4499 use Moose;
  2         6  
  2         15  
9             extends 'Cfn::Resource';
10             has Properties => (isa => 'Cfn::Resource::Properties::AWS::IAM::AccessKey', is => 'rw', coerce => 1, required => 1);
11             }
12              
13             package Cfn::Resource::Properties::AWS::IAM::AccessKey {
14 2     2   12192 use Moose;
  2         10  
  2         10  
15 2     2   13135 use MooseX::StrictConstructor;
  2         8  
  2         19  
16             extends 'Cfn::Resource::Properties';
17             has Serial => (isa => 'Cfn::Value', is => 'rw', coerce => 1);
18             # TODO: Status has extra restrictions
19             has Status => (isa => 'Cfn::Value', is => 'rw', coerce => 1, required => 0);
20             has UserName => (isa => 'Cfn::Value', is => 'rw', coerce => 1, required => 1);
21             }
22              
23             1;