diff options
author | Yorhel <git@yorhel.nl> | 2011-01-15 09:46:44 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-15 10:49:48 +0100 |
commit | c6d65fa7926c27180fc885d6b9f584c1437ef13d (patch) | |
tree | 2303191716f2426bc40e45f55fa2001743248342 /lib/TUWF/Request.pm | |
parent | 3a87849b1438dcfb270dbed37b8c7d343a9e6c06 (diff) |
reqGET -> reqGet, reqPOST -> reqPost, and two other minor changes
Diffstat (limited to 'lib/TUWF/Request.pm')
-rw-r--r-- | lib/TUWF/Request.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/TUWF/Request.pm b/lib/TUWF/Request.pm index 7c0aff2..44805ca 100644 --- a/lib/TUWF/Request.pm +++ b/lib/TUWF/Request.pm @@ -8,7 +8,7 @@ use Exporter 'import'; use Carp 'croak'; our @EXPORT = qw| - reqInit reqGET reqPOST reqParam reqUploadMIME reqUploadRaw reqSaveUpload + reqInit reqGet reqPost reqParam reqUploadMIME reqUploadRaw reqSaveUpload reqCookie reqMethod reqHeader reqPath reqBaseURI reqURI reqHost reqIP |; @@ -138,7 +138,7 @@ sub _parse_cookies { # get parameters from the query string -sub reqGET { +sub reqGet { my($s, $n) = @_; my $lst = $s->{_TUWF}{Req}{GET}; return keys %$lst if !$n; @@ -148,7 +148,7 @@ sub reqGET { # get parameters from the POST body -sub reqPOST { +sub reqPost { my($s, $n) = @_; my $lst = $s->{_TUWF}{Req}{POST}; return keys %$lst if !$n; |