File Coverage

blib/lib/Cfn/Resource/AWS/NetworkManager/Link.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 0 2 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1             # AWS::NetworkManager::Link generated from spec 20.1.0
2 1     1   664 use Moose::Util::TypeConstraints;
  1         3  
  1         11  
3              
4             coerce 'Cfn::Resource::Properties::AWS::NetworkManager::Link',
5             from 'HashRef',
6             via { Cfn::Resource::Properties::AWS::NetworkManager::Link->new( %$_ ) };
7              
8             package Cfn::Resource::AWS::NetworkManager::Link {
9 1     1   2165 use Moose;
  1         3  
  1         7  
10             extends 'Cfn::Resource';
11             has Properties => (isa => 'Cfn::Resource::Properties::AWS::NetworkManager::Link', is => 'rw', coerce => 1);
12            
13             sub AttributeList {
14 1     1 0 5 [ 'LinkArn','LinkId' ]
15             }
16             sub supported_regions {
17 1     1 0 1043 [ 'af-south-1','ap-east-1','ap-northeast-1','ap-northeast-2','ap-south-1','ap-southeast-1','ap-southeast-2','ca-central-1','eu-central-1','eu-north-1','eu-south-1','eu-west-1','eu-west-2','eu-west-3','me-south-1','sa-east-1','us-east-1','us-east-2','us-west-1','us-west-2' ]
18             }
19             }
20              
21              
22              
23             subtype 'Cfn::Resource::Properties::AWS::NetworkManager::Link::Bandwidth',
24             as 'Cfn::Value';
25              
26             coerce 'Cfn::Resource::Properties::AWS::NetworkManager::Link::Bandwidth',
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::NetworkManager::Link::Bandwidth->new( %$_ );
33             }
34             };
35              
36             package Cfn::Resource::Properties::Object::AWS::NetworkManager::Link::Bandwidth {
37 1     1   7049 use Moose;
  1         3  
  1         5  
38 1     1   6640 use MooseX::StrictConstructor;
  1         3  
  1         7  
39             extends 'Cfn::Value::TypedValue';
40            
41             has DownloadSpeed => (isa => 'Cfn::Value::Integer', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
42             has UploadSpeed => (isa => 'Cfn::Value::Integer', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
43             }
44              
45             package Cfn::Resource::Properties::AWS::NetworkManager::Link {
46 1     1   3452 use Moose;
  1         2  
  1         7  
47 1     1   6660 use MooseX::StrictConstructor;
  1         3  
  1         7  
48             extends 'Cfn::Resource::Properties';
49            
50             has Bandwidth => (isa => 'Cfn::Resource::Properties::AWS::NetworkManager::Link::Bandwidth', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
51             has Description => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
52             has GlobalNetworkId => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Immutable');
53             has Provider => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
54             has SiteId => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, required => 1, traits => [ 'CfnMutability' ], mutability => 'Immutable');
55             has Tags => (isa => 'ArrayOfCfn::Resource::Properties::TagType', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
56             has Type => (isa => 'Cfn::Value::String', is => 'rw', coerce => 1, traits => [ 'CfnMutability' ], mutability => 'Mutable');
57             }
58              
59             1;
60             ### main pod documentation begin ###
61              
62             =encoding UTF-8
63              
64             =head1 NAME
65              
66             Cfn::Resource::AWS::NetworkManager::Link - Cfn resource for AWS::NetworkManager::Link
67              
68             =head1 DESCRIPTION
69              
70             This module implements a Perl module that represents the CloudFormation object AWS::NetworkManager::Link.
71              
72             See L<Cfn> for more information on how to use it.
73              
74             =head1 AUTHOR
75              
76             Jose Luis Martinez
77             CAPSiDE
78             jlmartinez@capside.com
79              
80             =head1 COPYRIGHT and LICENSE
81              
82             Copyright (c) 2013 by CAPSiDE
83             This code is distributed under the Apache 2 License. The full text of the
84             license can be found in the LICENSE file included with this module.
85              
86             =cut