File Coverage

blib/lib/WebService/Amazon/Signature.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	2	4	50.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	1	1	100.0
total	24	28	85.7

package WebService::Amazon::Signature;
# ABSTRACT: support for various ways to sign AWS requests
use strict;
use warnings;

our $VERSION = '0.001';

=head1 NAME

WebService::Amazon::Signature - handle signatures for Amazon webservices

=head1 VERSION

version 0.001

=head1 SYNOPSIS

 my $req = 'GET / HTTP/1.1 ...';
 my $amz = WebService::Amazon::Signature->new(
  version    => 4,
  algorithm  => 'AWS4-HMAC-SHA256',
  scope      => '20110909/us-east-1/host/aws4_request',
  access_key => 'AKIDEXAMPLE',
  secret_key => 'wJalrXUtnFEMI/K7MDENG+bPxRfiCYEXAMPLEKEY',
  host_port  => 'localhost:8000',
 );
 $amz->parse_request($req)
 my $signed_req = $amz->signed_request($req);

=head1 DESCRIPTION

Provides methods for signing requests and verifying responses for Amazon webservices,
as described in L.

=cut

use WebService::Amazon::Signature::v4;

=head1 METHODS

=head2 new

Instantiate a signing object.

Will extract the C named parameter, if it exists, and use that
to select the appropriate subclass for instantiation. Other parameters
are as defined by the subclass.

=over 4

=item * L

=item * L

=back

=cut

sub new {
	my $class = shift;
	my %args = @_;
	my $version = delete $args{version} || 4;
	my $pkg = 'WebService::Amazon::Signature::v' . $version;
	if(my $code = $pkg->can('new')) {
		$class = $pkg if $class eq __PACKAGE__;
		return $code->($class, %args)
	}
	die "No support for version $version";
}

1;

__END__