File Coverage

blib/lib/Net/Amazon/S3/ACL/Grant/Email.pm

Criterion	Covered	Total	%
statement	15	29	51.7
branch	0	4	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	45	51.1

package Net::Amazon::S3::ACL::Grant::Email;

use warnings;
use strict;
use Carp;
use English qw( -no_match_vars );

use base qw(Net::Amazon::S3::ACL::Grant);
__PACKAGE__->mk_accessors(qw( email ));

# Module implementation here
sub parse_grantee {
   my ($self, $xpc, $node) = @_;

   my $email = $xpc->findvalue('.//s3:Grantee/s3:EmailAddress', $node)
      or croak "no email grant in provided node";
   $self->email($email);
   $self->key($email);

   return $self;
} ## end sub _parse_acl_grant

sub populate_from_target {
   my ($self, $target) = @_;
   croak "$target is not an email address" unless $target =~ /@/;
   $self->email($target);
   $self->key($target);
   return $self;
}

sub _set_key { $_[0]->key($_[0]->email()); }

sub stringify_grantee {
   my ($self) = @_;
   my $email = $self->email();
   return <<"END_OF_GRANTEE";

   $email

END_OF_GRANTEE
}

1; # Magic true value required at end of module
__END__