Support for method PATCH

lib/Net/HTTP/Spore/Meta/Method.pm

@@ -17,7 +17,7 @@ subtype UriPath
     => where { $_ =~ m!^/! }
     => message {"path must start with /"};
 
-enum Method => qw(OPTIONS HEAD GET POST PUT DELETE TRACE);
+enum Method => qw(OPTIONS HEAD GET POST PUT DELETE TRACE PATCH);
 
 subtype 'JSON::XS::Boolean' => as 'JSON::XS::Boolean';
 subtype 'JSON::PP::Boolean' => as 'JSON::PP::Boolean';
@@ -144,10 +144,10 @@ sub wrap {
           : delete $method_args{payload};
 
         if ( $payload
-            && ( $method->method !~ /^P(?:OS|U)T$/i ) )
+            && ( $method->method !~ /^(?:POST|PUT|PATCH)$/i ) )
         {
             die Net::HTTP::Spore::Response->new( 599, [],
-                { error => "payload requires a PUT or POST method" },
+                { error => "payload requires a PUT, PATCH or POST method" },
             );
         }
 

t/spore-method/payload.t

@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 use Test::Exception;
 
@@ -15,6 +15,11 @@ my $api_with_payload = {
             path             => '/user',
             required_payload => 1,
         },
+        update_user => {
+            method           => 'PATCH',
+            path             => '/user',
+            required_payload => 1,
+        },
         list_user => {
             method => 'GET',
             path   => '/user',
@@ -30,4 +35,7 @@ dies_ok { $obj->create_user(); };
 like $@->body->{error}, qr/this method require a payload/;
 
 dies_ok { $obj->list_user( payload => {} ) };
-like $@->body->{error}, qr/payload requires a PUT or POST method/;
+like $@->body->{error}, qr/payload requires a PUT, PATCH or POST method/;
+
+dies_ok { $obj->update_user(); };
+like $@->body->{error}, qr/this method require a payload/;