view release on metacpan or  search on metacpan

lib/AWS/Signature/V2.pm  view on Meta::CPAN

    my ($self, $url) = @_;
    my %eq = map { split /=/, $_ } split /&/, $url->query();
    my %q = map { $_ => uri_unescape( $eq{$_} ) } keys %eq;
    $q{Signature};
}


1;
__END__

=encoding utf-8

=head1 NAME

AWS::Signature::V2 - Create a version 2 signature for AWS services

=head1 SYNOPSIS

    use AWS::Signature::V2;
    use LWP::UserAgent->new;