<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Net::OAuth::Response;
use warnings;
use strict;
use base qw/Net::OAuth::Message/;

__PACKAGE__-&gt;mk_classdata(required_message_params =&gt; [qw/
	token
    /]);

__PACKAGE__-&gt;mk_classdata(optional_message_params =&gt; [qw/
    /]);

__PACKAGE__-&gt;mk_classdata(required_api_params =&gt; [qw/
    /]);

__PACKAGE__-&gt;mk_classdata(optional_api_params =&gt; [qw/
	extra_params
	protocol_version
	/]);

__PACKAGE__-&gt;mk_classdata(signature_elements =&gt; [qw/
    /]);

__PACKAGE__-&gt;mk_classdata(all_message_params =&gt; [
    @{__PACKAGE__-&gt;required_message_params},
    @{__PACKAGE__-&gt;optional_message_params},
	]);

__PACKAGE__-&gt;mk_classdata(all_api_params =&gt; [
    @{__PACKAGE__-&gt;required_api_params},
    @{__PACKAGE__-&gt;optional_api_params},	
	]);
	
__PACKAGE__-&gt;mk_classdata(all_params =&gt; [
    @{__PACKAGE__-&gt;all_api_params},
    @{__PACKAGE__-&gt;all_message_params},	
	]);

__PACKAGE__-&gt;mk_accessors(
    @{__PACKAGE__-&gt;all_params},
    );

=head1 NAME

Net::OAuth::Response - base class for OAuth responses

=head1 SEE ALSO

L&lt;Net::OAuth&gt;, L&lt;http://oauth.net&gt;

=head1 AUTHOR

Keith Grennan, C&lt;&lt; &lt;kgrennan at cpan.org&gt; &gt;&gt;

=head1 COPYRIGHT &amp; LICENSE

Copyright 2007 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;</pre></body></html>