File Coverage

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

Criterion	Covered	Total	%
statement	17	38	44.7
branch	0	10	0.0
condition			n/a
subroutine	6	11	54.5
pod	4	4	100.0
total	27	63	42.8

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

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

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

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

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

   (my $key = $URI) =~ s{.*/}{}mxs;
   $key =
         ($key eq 'AllUsers')           ? 'ALL'
       : ($key eq 'AuthenticatedUsers') ? 'AUTH'
       :                                   $URI;
   $self->key($key);

   return $self;
} ## end sub _parse_acl_grant

my (%canonical_key_for, %URI_for);

BEGIN {
   %canonical_key_for = (
      'AUTHENTICATED' => 'AUTH',
      'AUTH'          => 'AUTH',
      'ALL'           => 'ALL',
      'ANY'           => 'ALL',
      'ANONYMOUS'     => 'ALL',
      'ANON'          => 'ALL',
      '*'             => 'ALL',
   );
   %URI_for = (
      AUTH => 'http://acs.amazonaws.com/groups/global/AuthenticatedUsers',
      ALL  => 'http://acs.amazonaws.com/groups/global/AllUsers',
   );
}

sub canonical_key_for {
   my ($self, $key) = @_;
   if (my ($type) = $key =~ m{\A http://.*/(All | Authenticated)Users \z}imxs) {
      $key = $type;
   }
   croak "no canonical name for '$key'"
      unless exists $canonical_key_for{uc $key};
   return $canonical_key_for{uc $key};
}

sub populate_from_target {
   my ($self, $target) = @_;

   $target = $self->canonical_key_for($target);
   $self->key($target);
   $self->URI($URI_for{$target});

   return $self;
}

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

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

   $URI

END_OF_GRANTEE
}

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