The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Drogo::Guts - Shared components used by framework.

SYNOPSIS

METHODS

$self->server

Returns the server object.

$self->uri

Returns the uri.

$self->module_url

Returns the url associated with the module.

$self->filename

Returns the path filename.

$self->request_method

Returns the request_method.

$self->remote_addr

Returns the remote_addr.

$self->header_in

Return value of header_in.

$self->print(...)

Output via http.

$self->auto_header

Returns true if set, otherwise args 1 sets true and 0 false.

$self->dispatching

Returns true if we're dispatching actively.

$self->header_set('header_type', 'value')

Set output header.

$self->header('content-type')

Set content type.

$self->headers

Returns hashref of response headers.

$self->location('url')

Redirect to a url (sets the Location header out).

$self->status(...)

Set output status... (200, 404, etc...) If no argument given, returns status.

$self->request_part(...)

Returns reference for upload.

  {
     'filename' => 'filename',
     'tmp_file' => '/tmp/drogomp-23198-1330057261',
     'fh'       => \*{'Drogo::MultiPart::$request_part{...}'},
     'name'     => 'foo'
  }

$self->param(...)

Return a parameter passed via CGI--works like CGI::param.

$self->param_hash

Return a friendly hashref of CGI parameters.

$self->request_body & $self->request

Returns request body.

$self->request_parts

Returns arrayref of request parts, used for multipart/form-data requests.

$self->args

Returns args.

$self->matches

Returns array of post_arguments (matching path after a matched ActionMatch attribute) Returns array of matching elements when used with ActionRegex.

$self->post_args

Same as matches, deprecated.

detach

Stops processing and "exits"

process_auto_header

Process the autoheader.

error_stack

Returns the "error stack" as an array.

get_error

Returns error as string.

$self->unescape

Unscape HTTP URI encoding.

$self->cookie

Cookie methods:

   $self->cookie->set(-name => 'foo', -value => 'bar');
   my %cookies = $self->cookie->read;

$self->elapsed_time

Returns elapsed time since initial dispatch.

AUTHORS

Bizowie <http://bizowie.com>

COPYRIGHT AND LICENSE

Copyright (C) 2013 Bizowie

This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.