Edit file File name : HMAC_SHA256.pm Content :package Net::OAuth::SignatureMethod::HMAC_SHA256; use warnings; use strict; use Digest::SHA (); use MIME::Base64 (); sub sign { my $self = shift; my $request = shift; my $hmac_digest = Digest::SHA::hmac_sha256( $request->signature_base_string, $request->signature_key ); return MIME::Base64::encode_base64($hmac_digest, ''); } sub verify { my $self = shift; my $request = shift; return $request->signature eq $self->sign($request); } =head1 NAME Net::OAuth::SignatureMethod::HMAC_SHA256 - HMAC_SHA256 Signature Method for OAuth protocol =head1 SEE ALSO L<Net::OAuth>, L<http://oauth.net> =head1 AUTHOR Keith Grennan, C<< <kgrennan at cpan.org> >> =head1 COPYRIGHT & LICENSE Copyright 2012 Keith Grennan, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; Save