File Coverage

blib/lib/Cfn/Resource/AWS/Backup/BackupPlan.pm
Criterion Covered Total %
statement 44 44 100.0
branch n/a
condition n/a
subroutine 16 16 100.0
pod 0 2 0.0
total 60 62 96.7


line stmt bran cond sub pod time code
1             # AWS::Backup::BackupPlan generated from spec 20.1.0
2 1     1   739 use Moose::Util::TypeConstraints;
  1         5  
  1         11  
3              
4             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan',
5             from 'HashRef',
6             via { Cfn::Resource::Properties::AWS::Backup::BackupPlan->new( %$_ ) };
7              
8             package Cfn::Resource::AWS::Backup::BackupPlan {
9 1     1   2276 use Moose;
  1         3  
  1         11  
10             extends 'Cfn::Resource';
11             has Properties => (isa => 'Cfn::Resource::Properties::AWS::Backup::BackupPlan', is => 'rw', coerce => 1);
12            
13             sub AttributeList {
14 1     1 0 6 [ 'BackupPlanArn','BackupPlanId','VersionId' ]
15             }
16             sub supported_regions {
17 1     1 0 1162 [ 'af-south-1','ap-northeast-1','ap-northeast-2','ap-southeast-1','ap-southeast-2','ca-central-1','cn-north-1','cn-northwest-1','eu-central-1','eu-south-1','eu-west-1','eu-west-2','us-east-1','us-east-2','us-gov-east-1','us-gov-west-1','us-west-1','us-west-2' ]
18             }
19             }
20              
21              
22              
23             subtype 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::LifecycleResourceType',
24             as 'Cfn::Value';
25              
26             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::LifecycleResourceType',
27             from 'HashRef',
28             via {
29             if (my $f = Cfn::TypeLibrary::try_function($_)) {
30             return $f
31             } else {
32             return Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::LifecycleResourceType->new( %$_ );
33             }
34             };
35              
36             package Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::LifecycleResourceType {
37 1     1   7408 use Moose;
  1         4  
  1         10  
38 1     1   6649 use MooseX::StrictConstructor;
  1         4  
  1         10  
39             extends 'Cfn::Value::TypedValue';
40            
41             has DeleteAfterDays => (isa => 'Cfn::Value::Double', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
42             has MoveToColdStorageAfterDays => (isa => 'Cfn::Value::Double', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
43             }
44             subtype 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType',
45             as 'Cfn::Value',
46             where { $_->isa('Cfn::Value::Array') or $_->isa('Cfn::Value::Function') },
47             message { "$_ is not a Cfn::Value or a Cfn::Value::Function" };
48              
49             coerce 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType',
50             from 'HashRef',
51             via {
52             if (my $f = Cfn::TypeLibrary::try_function($_)) {
53             return $f
54             } else {
55             die 'Only accepts functions';
56             }
57             },
58             from 'ArrayRef',
59             via {
60             Cfn::Value::Array->new(Value => [
61             map {
62             Moose::Util::TypeConstraints::find_type_constraint('Cfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType')->coerce($_)
63             } @$_
64             ]);
65             };
66              
67             subtype 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType',
68             as 'Cfn::Value';
69              
70             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType',
71             from 'HashRef',
72             via {
73             if (my $f = Cfn::TypeLibrary::try_function($_)) {
74             return $f
75             } else {
76             return Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::CopyActionResourceType->new( %$_ );
77             }
78             };
79              
80             package Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::CopyActionResourceType {
81 1     1   3937 use Moose;
  1         3  
  1         5  
82 1     1   6950 use MooseX::StrictConstructor;
  1         3  
  1         5  
83             extends 'Cfn::Value::TypedValue';
84            
85             has DestinationBackupVaultArn => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
86             has Lifecycle => (isa => 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::LifecycleResourceType', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
87             }
88             subtype 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType',
89             as 'Cfn::Value',
90             where { $_->isa('Cfn::Value::Array') or $_->isa('Cfn::Value::Function') },
91             message { "$_ is not a Cfn::Value or a Cfn::Value::Function" };
92              
93             coerce 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType',
94             from 'HashRef',
95             via {
96             if (my $f = Cfn::TypeLibrary::try_function($_)) {
97             return $f
98             } else {
99             die 'Only accepts functions';
100             }
101             },
102             from 'ArrayRef',
103             via {
104             Cfn::Value::Array->new(Value => [
105             map {
106             Moose::Util::TypeConstraints::find_type_constraint('Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType')->coerce($_)
107             } @$_
108             ]);
109             };
110              
111             subtype 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType',
112             as 'Cfn::Value';
113              
114             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType',
115             from 'HashRef',
116             via {
117             if (my $f = Cfn::TypeLibrary::try_function($_)) {
118             return $f
119             } else {
120             return Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::BackupRuleResourceType->new( %$_ );
121             }
122             };
123              
124             package Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::BackupRuleResourceType {
125 1     1   3568 use Moose;
  1         4  
  1         6  
126 1     1   6593 use MooseX::StrictConstructor;
  1         4  
  1         10  
127             extends 'Cfn::Value::TypedValue';
128            
129             has CompletionWindowMinutes => (isa => 'Cfn::Value::Double', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
130             has CopyActions => (isa => 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::CopyActionResourceType', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
131             has Lifecycle => (isa => 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::LifecycleResourceType', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
132             has RecoveryPointTags => (isa => 'Cfn::Value::Json|Cfn::DynamicValue', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
133             has RuleName => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
134             has ScheduleExpression => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
135             has StartWindowMinutes => (isa => 'Cfn::Value::Double', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
136             has TargetBackupVault => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
137             }
138             subtype 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType',
139             as 'Cfn::Value',
140             where { $_->isa('Cfn::Value::Array') or $_->isa('Cfn::Value::Function') },
141             message { "$_ is not a Cfn::Value or a Cfn::Value::Function" };
142              
143             coerce 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType',
144             from 'HashRef',
145             via {
146             if (my $f = Cfn::TypeLibrary::try_function($_)) {
147             return $f
148             } else {
149             die 'Only accepts functions';
150             }
151             },
152             from 'ArrayRef',
153             via {
154             Cfn::Value::Array->new(Value => [
155             map {
156             Moose::Util::TypeConstraints::find_type_constraint('Cfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType')->coerce($_)
157             } @$_
158             ]);
159             };
160              
161             subtype 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType',
162             as 'Cfn::Value';
163              
164             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType',
165             from 'HashRef',
166             via {
167             if (my $f = Cfn::TypeLibrary::try_function($_)) {
168             return $f
169             } else {
170             return Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType->new( %$_ );
171             }
172             };
173              
174             package Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType {
175 1     1   3704 use Moose;
  1         3  
  1         8  
176 1     1   6714 use MooseX::StrictConstructor;
  1         2  
  1         4  
177             extends 'Cfn::Value::TypedValue';
178            
179             has BackupOptions => (isa => 'Cfn::Value::Json|Cfn::DynamicValue', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
180             has ResourceType => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
181             }
182              
183             subtype 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupPlanResourceType',
184             as 'Cfn::Value';
185              
186             coerce 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupPlanResourceType',
187             from 'HashRef',
188             via {
189             if (my $f = Cfn::TypeLibrary::try_function($_)) {
190             return $f
191             } else {
192             return Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::BackupPlanResourceType->new( %$_ );
193             }
194             };
195              
196             package Cfn::Resource::Properties::Object::AWS::Backup::BackupPlan::BackupPlanResourceType {
197 1     1   3552 use Moose;
  1         3  
  1         6  
198 1     1   6554 use MooseX::StrictConstructor;
  1         3  
  1         6  
199             extends 'Cfn::Value::TypedValue';
200            
201             has AdvancedBackupSettings => (isa => 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::AdvancedBackupSettingResourceType', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
202             has BackupPlanName => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
203             has BackupPlanRule => (isa => 'ArrayOfCfn::Resource::Properties::AWS::Backup::BackupPlan::BackupRuleResourceType', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
204             }
205              
206             package Cfn::Resource::Properties::AWS::Backup::BackupPlan {
207 1     1   3345 use Moose;
  1         4  
  1         7  
208 1     1   6723 use MooseX::StrictConstructor;
  1         3  
  1         5  
209             extends 'Cfn::Resource::Properties';
210            
211             has BackupPlan => (isa => 'Cfn::Resource::Properties::AWS::Backup::BackupPlan::BackupPlanResourceType', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
212             has BackupPlanTags => (isa => 'Cfn::Value::Json|Cfn::DynamicValue', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
213             }
214              
215             1;
216             ### main pod documentation begin ###
217              
218             =encoding UTF-8
219              
220             =head1 NAME
221              
222             Cfn::Resource::AWS::Backup::BackupPlan - Cfn resource for AWS::Backup::BackupPlan
223              
224             =head1 DESCRIPTION
225              
226             This module implements a Perl module that represents the CloudFormation object AWS::Backup::BackupPlan.
227              
228             See L<Cfn> for more information on how to use it.
229              
230             =head1 AUTHOR
231              
232             Jose Luis Martinez
233             CAPSiDE
234             jlmartinez@capside.com
235              
236             =head1 COPYRIGHT and LICENSE
237              
238             Copyright (c) 2013 by CAPSiDE
239             This code is distributed under the Apache 2 License. The full text of the
240             license can be found in the LICENSE file included with this module.
241              
242             =cut