line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# AWS::MediaLive::InputSecurityGroup generated from spec 4.1.0 |
2
|
1
|
|
|
1
|
|
592
|
use Moose::Util::TypeConstraints; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
9
|
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
coerce 'Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup', |
5
|
|
|
|
|
|
|
from 'HashRef', |
6
|
|
|
|
|
|
|
via { Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup->new( %$_ ) }; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
package Cfn::Resource::AWS::MediaLive::InputSecurityGroup { |
9
|
1
|
|
|
1
|
|
1948
|
use Moose; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
6
|
|
10
|
|
|
|
|
|
|
extends 'Cfn::Resource'; |
11
|
|
|
|
|
|
|
has Properties => (isa => 'Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup', is => 'rw', coerce => 1); |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub AttributeList { |
14
|
1
|
|
|
1
|
0
|
4
|
[ 'Arn' ] |
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
sub supported_regions { |
17
|
1
|
|
|
1
|
0
|
994
|
[ 'ap-northeast-1','ap-northeast-2','ap-south-1','ap-southeast-1','ap-southeast-2','eu-central-1','eu-west-1','sa-east-1','us-east-1','us-west-2' ] |
18
|
|
|
|
|
|
|
} |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
subtype 'ArrayOfCfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr', |
23
|
|
|
|
|
|
|
as 'Cfn::Value', |
24
|
|
|
|
|
|
|
where { $_->isa('Cfn::Value::Array') or $_->isa('Cfn::Value::Function') }, |
25
|
|
|
|
|
|
|
message { "$_ is not a Cfn::Value or a Cfn::Value::Function" }; |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
coerce 'ArrayOfCfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr', |
28
|
|
|
|
|
|
|
from 'HashRef', |
29
|
|
|
|
|
|
|
via { |
30
|
|
|
|
|
|
|
if (my $f = Cfn::TypeLibrary::try_function($_)) { |
31
|
|
|
|
|
|
|
return $f |
32
|
|
|
|
|
|
|
} else { |
33
|
|
|
|
|
|
|
die 'Only accepts functions'; |
34
|
|
|
|
|
|
|
} |
35
|
|
|
|
|
|
|
}, |
36
|
|
|
|
|
|
|
from 'ArrayRef', |
37
|
|
|
|
|
|
|
via { |
38
|
|
|
|
|
|
|
Cfn::Value::Array->new(Value => [ |
39
|
|
|
|
|
|
|
map { |
40
|
|
|
|
|
|
|
Moose::Util::TypeConstraints::find_type_constraint('Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr')->coerce($_) |
41
|
|
|
|
|
|
|
} @$_ |
42
|
|
|
|
|
|
|
]); |
43
|
|
|
|
|
|
|
}; |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
subtype 'Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr', |
46
|
|
|
|
|
|
|
as 'Cfn::Value'; |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
coerce 'Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr', |
49
|
|
|
|
|
|
|
from 'HashRef', |
50
|
|
|
|
|
|
|
via { |
51
|
|
|
|
|
|
|
if (my $f = Cfn::TypeLibrary::try_function($_)) { |
52
|
|
|
|
|
|
|
return $f |
53
|
|
|
|
|
|
|
} else { |
54
|
|
|
|
|
|
|
return Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidrValue->new( %$_ ); |
55
|
|
|
|
|
|
|
} |
56
|
|
|
|
|
|
|
}; |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
package Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidrValue { |
59
|
1
|
|
|
1
|
|
7125
|
use Moose; |
|
1
|
|
|
|
|
5
|
|
|
1
|
|
|
|
|
5
|
|
60
|
1
|
|
|
1
|
|
6504
|
use MooseX::StrictConstructor; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
8
|
|
61
|
|
|
|
|
|
|
extends 'Cfn::Value::TypedValue'; |
62
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
has Cidr => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable'); |
64
|
|
|
|
|
|
|
} |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
package Cfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup { |
67
|
1
|
|
|
1
|
|
3366
|
use Moose; |
|
1
|
|
|
|
|
3
|
|
|
1
|
|
|
|
|
5
|
|
68
|
1
|
|
|
1
|
|
6470
|
use MooseX::StrictConstructor; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
8
|
|
69
|
|
|
|
|
|
|
extends 'Cfn::Resource::Properties'; |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
has Tags => (isa => 'Cfn::Value::Json|Cfn::DynamicValue', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable'); |
72
|
|
|
|
|
|
|
has WhitelistRules => (isa => 'ArrayOfCfn::Resource::Properties::AWS::MediaLive::InputSecurityGroup::InputWhitelistRuleCidr', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable'); |
73
|
|
|
|
|
|
|
} |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
1; |