File Coverage

blib/lib/Net/Amazon/EC2/Snapshot.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Net::Amazon::EC2::Snapshot;
2 2     2   1518 use Moose;
  2         4  
  2         16  
3              
4             =head1 NAME
5              
6             Net::Amazon::EC2::Snapshot
7              
8             =head1 DESCRIPTION
9              
10             A class representing a snapshot of a volume.
11              
12             =head1 ATTRIBUTES
13              
14             =over
15              
16             =item snapshot_id (required)
17              
18             The ID of the snapshot.
19              
20             =item status (required)
21              
22             The snapshot's status.
23              
24             =item volume_id (required)
25              
26             The ID of the volume the snapshot was taken from.
27              
28             =item start_time (required)
29              
30             The time the snapshot was started.
31              
32             =item progress (required)
33              
34             The current progress of the snapshop, in percent.
35              
36             =item owner_id (required)
37              
38             AWS Access Key ID of the user who owns the snapshot.
39              
40             =item volume_size (required)
41              
42             The size of the volume, in GiB.
43              
44             =item description (optional)
45              
46             Description of the snapshot.
47              
48             =item owner_alias (optional)
49              
50             The AWS account alias (e.g., "amazon", "redhat", "self", etc.) or AWS account ID that owns the AMI.
51              
52             =back
53              
54             =cut
55              
56             has 'snapshot_id' => ( is => 'ro', isa => 'Str', required => 1 );
57             has 'status' => ( is => 'ro', isa => 'Str', required => 1 );
58             has 'volume_id' => ( is => 'ro', isa => 'Str', required => 1 );
59             has 'start_time' => ( is => 'ro', isa => 'Str', required => 1 );
60             has 'progress' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
61             has 'owner_id' => ( is => 'ro', isa => 'Str', required => 1 );
62             has 'volume_size' => ( is => 'ro', isa => 'Str', required => 1 );
63             has 'description' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
64             has 'owner_alias' => ( is => 'ro', isa => 'Maybe[Str]', required => 0 );
65             has 'tag_set' => ( is => 'ro', isa => 'Maybe[ArrayRef[Net::Amazon::EC2::TagSet]]', required => 0 );
66              
67             __PACKAGE__->meta->make_immutable();
68              
69             =head1 AUTHOR
70              
71             Jeff Kim <cpan@chosec.com>
72              
73             =head1 COPYRIGHT
74              
75             Copyright (c) 2006-2010 Jeff Kim. This program is free software; you can redistribute it and/or modify it
76             under the same terms as Perl itself.
77              
78             =cut
79              
80 2     2   13393 no Moose;
  2         6  
  2         11  
81             1;