| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK.pm,v 1.49 2004/02/21 10:15:58 toenail Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/Request.pm,v 1.1 2004/03/05 04:16:19 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 51 | sub new { |
51 | sub new { |
| 52 | my ($invocant, @args) = @_; |
52 | my ($invocant, @args) = @_; |
| 53 | my $class = ref $invocant || $invocant; |
53 | my $class = ref $invocant || $invocant; |
| 54 | return bless { r => Apache::Request->new(@args) }, $class; |
54 | return bless { r => Apache::Request->new(@args) }, $class; |
| 55 | } |
55 | } |
|
|
56 | |
|
|
57 | =back |
|
|
58 | |
|
|
59 | =cut |
| 56 | |
60 | |
| 57 | =head1 METHODS |
61 | =head1 METHODS |
| 58 | |
62 | |
| 59 | =over |
63 | =over |
| 60 | |
64 | |