diff options
author | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-03-07 22:52:33 +0000 |
commit | 11c6e5fc65f26ba5219997d19707b998a9abf26d (patch) | |
tree | a1dc8073a679611d3f09c01eda006cc3f6f846b1 /Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm | |
parent | a6593bd4f2eb12ae25540de026f7f9ebcf230a2f (diff) |
tl20 perl 5.30.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@54166 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm')
-rw-r--r-- | Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm b/Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm index d70a9395710..17833c8f4f9 100644 --- a/Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm +++ b/Master/tlpkg/tlperl/site/lib/HTTP/Request/Common.pm @@ -3,13 +3,13 @@ package HTTP::Request::Common; use strict; use warnings; -our $VERSION = '6.18'; +our $VERSION = '6.22'; our $DYNAMIC_FILE_UPLOAD ||= 0; # make it defined (don't know why) use Exporter 5.57 'import'; -our @EXPORT =qw(GET HEAD PUT PATCH POST); +our @EXPORT =qw(GET HEAD PUT PATCH POST OPTIONS); our @EXPORT_OK = qw($DYNAMIC_FILE_UPLOAD DELETE); require HTTP::Request; @@ -23,6 +23,7 @@ sub DELETE { _simple_req('DELETE', @_); } sub PATCH { request_type_with_data('PATCH', @_); } sub POST { request_type_with_data('POST', @_); } sub PUT { request_type_with_data('PUT', @_); } +sub OPTIONS { request_type_with_data('OPTIONS', @_); } sub request_type_with_data { @@ -312,7 +313,7 @@ HTTP::Request::Common - Construct common HTTP::Request objects =head1 VERSION -version 6.18 +version 6.22 =head1 SYNOPSIS @@ -322,6 +323,7 @@ version 6.18 $ua->request(POST 'http://somewhere/foo', [foo => bar, bar => foo]); $ua->request(PATCH 'http://somewhere/foo', [foo => bar, bar => foo]); $ua->request(PUT 'http://somewhere/foo', [foo => bar, bar => foo]); + $ua->request(OPTIONS 'http://somewhere/foo', [foo => bar, bar => foo]); =head1 DESCRIPTION @@ -398,6 +400,18 @@ The same as C<POST> below, but the method in the request is C<PATCH>. The same as C<POST> below, but the method in the request is C<PUT> +=item OPTIONS $url + +=item OPTIONS $url, Header => Value,... + +=item OPTIONS $url, $form_ref, Header => Value,... + +=item OPTIONS $url, Header => Value,..., Content => $form_ref + +=item OPTIONS $url, Header => Value,..., Content => $content + +The same as C<POST> below, but the method in the request is C<OPTIONS> + =item POST $url =item POST $url, Header => Value,... |