| OpenFrame documentation | Contained in the OpenFrame distribution. |
OpenFrame::Request - An abstract request class
use OpenFrame;
my $uri = URI->new("http://localhost/");
my $r = OpenFrame::Request->new();
$r->uri('http://www.example.com/');
$r->arguments({ colour => 'red' });
$r->cookies($cookies);
print "URI: " . $r->uri();
my $args = $r->arguments();
my $cookies = $r->cookies();
OpenFrame::Request represents requests inside OpenFrame. Requests
represent some kind of request for information given a URI.
The new() method creates a new OpenFrame::Request object.
my $r = OpenFrame::Request->new();
This method gets and sets the URI.
print "URI: " . $r->uri();
$r->uri(URI->new("http://foo.com/"));
This method gets and sets the argument hash reference associated with this request.
my $args = $r->arguments();
$r->arguments({colour => "blue"});
James Duncan <jduncan@fotango.com>
| OpenFrame documentation | Contained in the OpenFrame distribution. |
package OpenFrame::Request; use strict; use warnings::register; use OpenFrame::Object; use base qw ( OpenFrame::Object ); our $VERSION=3.05; sub uri { my $self = shift; if (!ref($self)) { $self->error("uri called as a class method"); } my $uri = shift; if (defined( $uri )) { $self->{ uri } = $uri; return $self; } else { return $self->{ uri }; } } sub arguments { my $self = shift; my $args = shift; if (defined( $args )) { $self->{ args } = $args; return $self; } else { return $self->{ args }; } } sub cookies { my $self = shift; my $ctin = shift; if (defined( $ctin )) { $self->{ ctin } = $ctin; return $ctin; } else { return $self->{ ctin }; } } 1; __END__