From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

RCLAMP / OpenFrame-3.05 / lib / OpenFrame / Request.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
—
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109

              
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__
=head1 NAME
OpenFrame::Request - An abstract request class
=head1 SYNOPSIS
  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();
=head1 DESCRIPTION
C<OpenFrame::Request> represents requests inside OpenFrame. Requests
represent some kind of request for information given a URI.
=head1 METHODS
=head2 new()
The new() method creates a new C<OpenFrame::Request> object.
  my $r = OpenFrame::Request->new();
=head2 uri()
This method gets and sets the URI.
  print "URI: " . $r->uri();
  $r->uri(URI->new("http://foo.com/"));
=head2 cookies()
This method gets and sets the C<OpenFrame::Cookies> object
associated with this request.
  my $cookietin = $r->cookies();
  $r->cookies($cookietin);
=head2 arguments()
This method gets and sets the argument hash reference associated with
this request.
  my $args = $r->arguments();
  $r->arguments({colour => "blue"});
=head1 AUTHOR
James Duncan <jduncan@fotango.com>
=cut