File Coverage

blib/lib/Paws/RedShift/CreateClusterSnapshot.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             package Paws::RedShift::CreateClusterSnapshot;
3 1     1   406 use Moose;
  1     1   3  
  1         7  
  1         584  
  1         3  
  1         10  
4             has ClusterIdentifier => (is => 'ro', isa => 'Str', required => 1);
5             has SnapshotIdentifier => (is => 'ro', isa => 'Str', required => 1);
6             has Tags => (is => 'ro', isa => 'ArrayRef[Paws::RedShift::Tag]');
7              
8 1     1   6140 use MooseX::ClassAttribute;
  1     1   2  
  1         10  
  1         6631  
  1         4  
  1         7  
9              
10             class_has _api_call => (isa => 'Str', is => 'ro', default => 'CreateClusterSnapshot');
11             class_has _returns => (isa => 'Str', is => 'ro', default => 'Paws::RedShift::CreateClusterSnapshotResult');
12             class_has _result_key => (isa => 'Str', is => 'ro', default => 'CreateClusterSnapshotResult');
13             1;
14              
15             ### main pod documentation begin ###
16              
17             =head1 NAME
18              
19             Paws::RedShift::CreateClusterSnapshot - Arguments for method CreateClusterSnapshot on Paws::RedShift
20              
21             =head1 DESCRIPTION
22              
23             This class represents the parameters used for calling the method CreateClusterSnapshot on the
24             Amazon Redshift service. Use the attributes of this class
25             as arguments to method CreateClusterSnapshot.
26              
27             You shouldn't make instances of this class. Each attribute should be used as a named argument in the call to CreateClusterSnapshot.
28              
29             As an example:
30              
31             $service_obj->CreateClusterSnapshot(Att1 => $value1, Att2 => $value2, ...);
32              
33             Values for attributes that are native types (Int, String, Float, etc) can passed as-is (scalar values). Values for complex Types (objects) can be passed as a HashRef. The keys and values of the hashref will be used to instance the underlying object.
34              
35             =head1 ATTRIBUTES
36              
37              
38             =head2 B<REQUIRED> ClusterIdentifier => Str
39              
40             The cluster identifier for which you want a snapshot.
41              
42              
43              
44             =head2 B<REQUIRED> SnapshotIdentifier => Str
45              
46             A unique identifier for the snapshot that you are requesting. This
47             identifier must be unique for all snapshots within the AWS account.
48              
49             Constraints:
50              
51             =over
52              
53             =item *
54              
55             Cannot be null, empty, or blank
56              
57             =item *
58              
59             Must contain from 1 to 255 alphanumeric characters or hyphens
60              
61             =item *
62              
63             First character must be a letter
64              
65             =item *
66              
67             Cannot end with a hyphen or contain two consecutive hyphens
68              
69             =back
70              
71             Example: C<my-snapshot-id>
72              
73              
74              
75             =head2 Tags => ArrayRef[L<Paws::RedShift::Tag>]
76              
77             A list of tag instances.
78              
79              
80              
81              
82             =head1 SEE ALSO
83              
84             This class forms part of L<Paws>, documenting arguments for method CreateClusterSnapshot in L<Paws::RedShift>
85              
86             =head1 BUGS and CONTRIBUTIONS
87              
88             The source code is located here: https://github.com/pplu/aws-sdk-perl
89              
90             Please report bugs to: https://github.com/pplu/aws-sdk-perl/issues
91              
92             =cut
93