Implement the PATCH HTTP verb

frioux · Feb 24, 2014 · 0a286dc · 0a286dc
1 parent 080a412
commit 0a286dc
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 Revision history for {{$dist->name}}
 
 {{$NEXT}}
+ - Implement the PATCH HTTP verb (thanks @mdi for GH#6)
 
 2.001006  2013-08-14 21:09:39 CST6CDT
  - Fix tests in Win32 (on the off chance they have curl installed)

diff --git a/adenosine-exports b/adenosine-exports
@@ -5,5 +5,6 @@ function POST() { adenosine POST "$@" }
 function PUT() { adenosine PUT "$@" }
 function DELETE() { adenosine DELETE "$@" }
 function TRACE() { adenosine TRACE "$@" }
+function PATCH() { adenosine PATCH "$@" }
 
 export PATH="$PATH:$(cd $(dirname $0) && pwd)/bin"
diff --git a/lib/App/Adenosine.pm b/lib/App/Adenosine.pm
@@ -15,7 +15,7 @@ use Text::ParseWords;
 use Scalar::Util 'blessed';
 use Module::Runtime 'use_module';
 
-our $verb_regex = '(?:HEAD|OPTIONS|GET|DELETE|PUT|POST|TRACE)';
+our $verb_regex = '(?:HEAD|OPTIONS|GET|DELETE|PUT|POST|TRACE|PATCH)';
 
 sub verbose { $_[0]->{verbose} }
 sub plugins { @{$_[0]->{plugins}} }
@@ -86,7 +86,7 @@ sub new {
 
       my @extra = (@ARGV, $self->_get_extra_options);
       my $wantdata;
-      $wantdata = 1 if $action =~ m/^(?:PUT|POST|TRACE)$/;
+      $wantdata = 1 if $action =~ m/^(?:PUT|POST|TRACE|PATCH)$/;
       if ($wantdata && $interactive_edit) {
          require File::Temp;
          my ($fh, $fn) = File::Temp::tempfile();
@@ -130,6 +130,7 @@ function POST() { adenosine POST "$@"; };
 function PUT() { adenosine PUT "$@"; };
 function DELETE() { adenosine DELETE "$@"; };
 function TRACE() { adenosine TRACE "$@"; };
+function PATCH() { adenosine TRACE "$@"; };
 SHELL
    } else {
       my $uri_base = $self->uri_base($action);