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.002';

=head1 NAME

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

=head1 VERSION

version 0.002

=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.

Note that most of this is subject to change over the next few versions.

=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__