File Coverage

blib/lib/Net/AmazonS3/Simple/Object.pm
Criterion Covered Total %
statement 12 12 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Net::AmazonS3::Simple::Object;
2 2     2   1575 use strict;
  2         3  
  2         68  
3 2     2   9 use warnings;
  2         4  
  2         88  
4              
5 2         27 use Class::Tiny qw(etag content_encoding content_length content_type last_modified),
6 2     2   1807 { validate => 1, };
  2         10064  
7              
8             =head1 NAME
9              
10             Net::AmazonS3::Simple::Object - base class of Object
11              
12             =head1 DESCRIPTION
13              
14             base object of Object
15              
16             =head1 METHODS
17              
18             =head2 new(%attributes)
19              
20             =head3 %attributes
21              
22             =head4 etag
23              
24             =head4 content_encoding
25              
26             =head4 content_length
27              
28             =head4 content_type
29              
30             =head4 last_modified
31              
32             =head4 validate
33              
34             =cut
35              
36             sub BUILD {
37 4     4 0 15097 my ($self) = @_;
38              
39 4         14 foreach my $req (qw/etag/) {
40 4 50       221 die "$req attribute required" unless defined $self->$req;
41             }
42             }
43              
44             =head1 LICENSE
45              
46             Copyright (C) Avast Software.
47              
48             This library is free software; you can redistribute it and/or modify
49             it under the same terms as Perl itself.
50              
51             =head1 AUTHOR
52              
53             Jan Seidl Eseidl@avast.comE
54              
55             =cut
56              
57             1;