File Coverage

blib/lib/Net/Amazon/S3/ACL/Grantee/User.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::User;
2             # ABSTRACT: Represents user reference for ACL
3             $Net::Amazon::S3::ACL::Grantee::User::VERSION = '0.99';
4 100     100   748 use Moose;
  100         247  
  100         732  
5              
6             extends 'Net::Amazon::S3::ACL::Grantee';
7              
8             has id => (
9             is => 'ro',
10             isa => 'Str',
11             required => 1,
12             );
13              
14             around BUILDARGS => sub {
15             my ($orig, $class) = (shift, shift);
16             unshift @_, 'id' if @_ == 1 && ! ref $_[0];
17              
18             return $class->$orig (@_);
19             };
20              
21             sub format_for_header {
22 91     91 0 210 my ($self) = @_;
23              
24 91         180 return "id=\"${\ $self->id }\"";
  91         2641  
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::User - Represents user reference for ACL
38              
39             =head1 VERSION
40              
41             version 0.99
42              
43             =head1 SYNOPSIS
44              
45             use Net::Amazon::S3::ACL::Grantee::User;
46              
47             my $user = Net::Amazon::S3::ACL::Grantee::User->new (123);
48             my $user = Net::Amazon::S3::ACL::Grantee::User->new (id => 123);
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