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;