| App-Context documentation | Contained in the App-Context distribution. |
App::Request - the request
# ... official way to get a Request object ... use App; $context = App->context(); $request = $context->request(); # get the request # ... alternative way (used internally) ... use App::Request; $request = App::Request->new();
A Request class ...
The following classes might be a part of the Request Class Group.
The App::Request->new() method is rarely called directly. That is because the current request is usually accessed through the $context object.
* Signature: $request = App::Request->new($context, $named);
* Return: $request App::Request
* Throws: App::Exception
* Since: 0.01
Sample Usage:
$request = App::Request->new();
The following methods are intended to be called by subclasses of the current class (or environmental, "main" code).
The _init() method is called from within the standard Request constructor. The _init() method in this class does nothing. It allows subclasses of the Request to customize the behavior of the constructor by overriding the _init() method.
* Signature: $request->_init()
* Param: void
* Return: void
* Throws: App::Exception
* Since: 0.01
Sample Usage:
$request->_init();
The user() method returns the username of the authenticated user. The special name, "guest", refers to the unauthenticated (anonymous) user.
* Signature: $username = $request->user();
* Param: void
* Return: string
* Throws: <none>
* Since: 0.01
Sample Usage:
$username = $request->user();
Returns the HTTP method used in this request (i.e. "GET" or "POST").
* Signature: $http_method = $request->http_method();
* Param: void
* Return: string
* Throws: <none>
* Since: 0.01
Sample Usage:
$http_method = $request->http_method();
Returns the content_type of data submitted in a POST, generally "multipart/form-data" or "application/x-www-form-urlencoded".
* Signature: $content_type = $request->content_type();
* Param: void
* Return: string
* Throws: <none>
* Since: 0.01
Sample Usage:
$content_type = $request->content_type();
The get_session_id() method returns the session_id in the request.
* Signature: $session_id = $request->get_session_id();
* Param: void
* Return: $session_id string
* Throws: <none>
* Since: 0.01
Sample Usage:
$session_id = $request->get_session_id();
| App-Context documentation | Contained in the App-Context distribution. |
############################################################################# ## $Id: Request.pm 9817 2007-07-30 22:46:19Z spadkins $ ############################################################################# package App::Request; $VERSION = (q$Revision: 9817 $ =~ /(\d[\d\.]*)/)[0]; # VERSION numbers generated by svn use strict; use App;
############################################################################# # CONSTANTS #############################################################################
############################################################################# # CLASS GROUP #############################################################################
############################################################################# # CONSTRUCTOR METHODS #############################################################################
############################################################################# # new() #############################################################################
sub new { &App::sub_entry if ($App::trace); my $this = shift; my $class = ref($this) || $this; my $self = {}; bless $self, $class; my $context = shift; $self->{context} = $context; my $args = shift || {}; $self->_init($args); &App::sub_exit($self) if ($App::trace); return $self; } ############################################################################# # PROTECTED METHODS #############################################################################
############################################################################# # _init() #############################################################################
sub _init { &App::sub_entry if ($App::trace); my ($self, $args) = @_; &App::sub_exit() if ($App::trace); } ############################################################################# # PUBLIC METHODS #############################################################################
############################################################################# # user() #############################################################################
sub user { &App::sub_entry if ($App::trace); my $self = shift; &App::sub_exit("guest") if ($App::trace); "guest"; } ############################################################################# # http_method() #############################################################################
sub http_method { &App::sub_entry if ($App::trace); &App::sub_exit(undef) if ($App::trace); return(undef); } ############################################################################# # content_type() #############################################################################
sub content_type { &App::sub_entry if ($App::trace); &App::sub_exit(undef) if ($App::trace); return(undef); } ############################################################################# # get_session_id() #############################################################################
sub get_session_id { &App::sub_entry if ($App::trace); my $self = shift; &App::sub_exit("default") if ($App::trace); "default"; } 1;