File Coverage

blib/lib/Paws/StorageGateway/Tape.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Paws::StorageGateway::Tape;
2 1     1   534 use Moose;
  1         3  
  1         7  
3             has Progress => (is => 'ro', isa => 'Num');
4             has TapeARN => (is => 'ro', isa => 'Str');
5             has TapeBarcode => (is => 'ro', isa => 'Str');
6             has TapeCreatedDate => (is => 'ro', isa => 'Str');
7             has TapeSizeInBytes => (is => 'ro', isa => 'Int');
8             has TapeStatus => (is => 'ro', isa => 'Str');
9             has TapeUsedInBytes => (is => 'ro', isa => 'Int');
10             has VTLDevice => (is => 'ro', isa => 'Str');
11             1;
12              
13             ### main pod documentation begin ###
14              
15             =head1 NAME
16              
17             Paws::StorageGateway::Tape
18              
19             =head1 USAGE
20              
21             This class represents one of two things:
22              
23             =head3 Arguments in a call to a service
24              
25             Use the attributes of this class as arguments to methods. You shouldn't make instances of this class.
26             Each attribute should be used as a named argument in the calls that expect this type of object.
27              
28             As an example, if Att1 is expected to be a Paws::StorageGateway::Tape object:
29              
30             $service_obj->Method(Att1 => { Progress => $value, ..., VTLDevice => $value });
31              
32             =head3 Results returned from an API call
33              
34             Use accessors for each attribute. If Att1 is expected to be an Paws::StorageGateway::Tape object:
35              
36             $result = $service_obj->Method(...);
37             $result->Att1->Progress
38              
39             =head1 DESCRIPTION
40              
41             Describes a virtual tape object.
42              
43             =head1 ATTRIBUTES
44              
45              
46             =head2 Progress => Num
47              
48             For archiving virtual tapes, indicates how much data remains to be
49             uploaded before archiving is complete.
50              
51             Range: 0 (not started) to 100 (complete).
52              
53              
54             =head2 TapeARN => Str
55              
56             The Amazon Resource Name (ARN) of the virtual tape.
57              
58              
59             =head2 TapeBarcode => Str
60              
61             The barcode that identifies a specific virtual tape.
62              
63              
64             =head2 TapeCreatedDate => Str
65              
66             The date the virtual tape was created.
67              
68              
69             =head2 TapeSizeInBytes => Int
70              
71             The size, in bytes, of the virtual tape capacity.
72              
73              
74             =head2 TapeStatus => Str
75              
76             The current state of the virtual tape.
77              
78              
79             =head2 TapeUsedInBytes => Int
80              
81             The size, in bytes, of data written to the virtual tape.
82              
83             This value is not available for tapes created prior to May,13 2015.
84              
85              
86             =head2 VTLDevice => Str
87              
88             The virtual tape library (VTL) device that the virtual tape is
89             associated with.
90              
91              
92              
93             =head1 SEE ALSO
94              
95             This class forms part of L<Paws>, describing an object used in L<Paws::StorageGateway>
96              
97             =head1 BUGS and CONTRIBUTIONS
98              
99             The source code is located here: https://github.com/pplu/aws-sdk-perl
100              
101             Please report bugs to: https://github.com/pplu/aws-sdk-perl/issues
102              
103             =cut
104