File Coverage

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

Criterion	Covered	Total	%
statement	15	33	45.4
branch	0	4	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	49	46.9

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

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

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

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

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

   my $name = $xpc->findvalue('.//s3:Grantee/s3:DisplayName', $node);
   $self->displayname($name);

   return $self;
} ## end sub _parse_acl_grant

sub populate_from_target {
   my ($self, $target) = @_;
   $self->ID($target);
   $self->displayname(undef);
   $self->key($target);
   return $self;
}

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

sub stringify_grantee {
   my ($self) = @_;

   # The DisplayName attribute is actually ignored by AWS, but for
   # sake of completeness we're including it here
   my $id = $self->ID();
   my $displayname = $self->displayname();
   $displayname = '' unless defined $displayname;
   return <<"END_OF_GRANTEE";

   $id
   $displayname

END_OF_GRANTEE
}

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