1package Net::OAuth::SignatureMethod::PLAINTEXT; 2use warnings; 3use strict; 4 5sub sign { 6 my $self = shift; 7 my $request = shift; 8 return $request->signature_key; 9} 10 11sub verify { 12 my $self = shift; 13 my $request = shift; 14 return $request->signature eq $self->sign($request); 15} 16 17=head1 NAME 18 19Net::OAuth::SignatureMethod::PLAINTEXT - PLAINTEXT Signature Method for OAuth protocol 20 21=head1 SEE ALSO 22 23L<Net::OAuth>, L<http://oauth.net> 24 25=head1 AUTHOR 26 27Keith Grennan, C<< <kgrennan at cpan.org> >> 28 29=head1 COPYRIGHT & LICENSE 30 31Copyright 2007 Keith Grennan, all rights reserved. 32 33This program is free software; you can redistribute it and/or modify it 34under the same terms as Perl itself. 35 36=cut 37 381;