=head1 NAME

Froody::Request - a Froody server request

=head1 DESCRIPTION

A request into a Froody server. Has a method attribute, and params for
the method. Normally you would use a subclass of this that gets the
method and params from some external source, for instance L<Froody::Request::CGI>.

=cut

package Froody::Request;
use warnings;
use strict;
use base qw( Froody::Base );

=head1 ATTRIBUTES

=over 4

=item method

The method of the request, probably taken from the URL of the CGI request
or something.

=item params

A hash of named parameters to pass to the request handler, taken from the
CGI params on the request or something.

=item type

The type of response wanted.  By default this returns xml.

=back

=cut

__PACKAGE__->mk_accessors(qw( method params callback ));

sub type {
   my $self = shift;
   return $self->{type} || "xml"
     unless @_;
   $self->{type} = shift;
   return $self;
}

=head1 BUGS

None known.

Please report any bugs you find via the CPAN RT system.
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Froody>

=head1 AUTHOR

Copyright Fotango 2005.  All rights reserved.

Please see the main L<Froody> documentation for details of who has worked
on this project.

This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=head1 SEE ALSO

L<Froody>, L<Froody::Dispatch>

=cut
1;