File Coverage

blib/lib/Net/Amazon/S3/ACL/Grantee/Email.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 8 9 88.8


line stmt bran cond sub pod time code
1             package Net::Amazon::S3::ACL::Grantee::Email;
2             # ABSTRACT: Represents user reference by email address for ACL
3             $Net::Amazon::S3::ACL::Grantee::Email::VERSION = '0.99';
4 100     100   769 use Moose;
  100         244  
  100         712  
5              
6             extends 'Net::Amazon::S3::ACL::Grantee';
7              
8             has address => (
9             is => 'ro',
10             isa => 'Str',
11             required => 1,
12             );
13              
14             around BUILDARGS => sub {
15             my ($orig, $class) = (shift, shift);
16             unshift @_, 'address' if @_ == 1 && ! ref $_[0];
17              
18             return $class->$orig (@_);
19             };
20              
21             sub format_for_header {
22 1     1 0 2 my ($self) = @_;
23              
24 1         3 return "emailAddress=\"${\ $self->address }\"";
  1         32  
25             }
26              
27             1;
28              
29             __END__
30              
31             =pod
32              
33             =encoding UTF-8
34              
35             =head1 NAME
36              
37             Net::Amazon::S3::ACL::Grantee::Email - Represents user reference by email address for ACL
38              
39             =head1 VERSION
40              
41             version 0.99
42              
43             =head1 SYNOPSIS
44              
45             use Net::Amazon::S3::ACL::Grantee::Email;
46              
47             my $email = Net::Amazon::S3::ACL::Grantee::Email->new ('foo@bar.com');
48             my $email = Net::Amazon::S3::ACL::Grantee::Email->new (address => 'foo@bar.com');
49              
50             =head1 AUTHOR
51              
52             Branislav Zahradník <barney@cpan.org>
53              
54             =head1 COPYRIGHT AND LICENSE
55              
56             This module is part of L<Net::Amazon::S3>.
57              
58             =head1 AUTHOR
59              
60             Branislav Zahradník <barney@cpan.org>
61              
62             =head1 COPYRIGHT AND LICENSE
63              
64             This software is copyright (c) 2021 by Amazon Digital Services, Leon Brocard, Brad Fitzpatrick, Pedro Figueiredo, Rusty Conover, Branislav Zahradník.
65              
66             This is free software; you can redistribute it and/or modify it under
67             the same terms as the Perl 5 programming language system itself.
68              
69             =cut