content_type should be checked only in case of a POST|PUT, accept hav…

…e a higher priority than accet_type
PerlDancer · May 25, 2010 · b51ade1 · b51ade1
1 parent 0148a61
commit b51ade1
Showing 1 changed file with 15 additions and 8 deletions.
diff --git a/lib/Dancer/Serializer/Mutable.pm b/lib/Dancer/Serializer/Mutable.pm
@@ -28,23 +28,30 @@ sub _find_content_type {
         $params = $request->params;
     }
 
-    if ( $request->{content_type} ) {
-        $content_types{ $request->{content_type} } = 3;
-    }
+    my $method = $request->method;
+
+    if ($method =~ /^(?:POST|PUT)$/) {
+        if ($request->{content_type}) {
+            $content_types{$request->{content_type}} = 4;
+        }
 
-    if ( $params && $params->{content_type} ) {
-        $content_types{ $params->{content_type} } = 2;
+        if ($params && $params->{content_type}) {
+            $content_types{$params->{content_type}} = 3;
+        }
     }
 
-    if ( $request->{accept} ) {
-        $content_types{ $request->{accept} } = 1;
+    if ($request->{accept}) {
+        $content_types{$request->{accept}} = 2;
+    }
+    if ($request->{'accept_type'}) {
+        $content_types{$request->{accept_type}} = 1;
     }
 
     $content_types{'application/json'} = 0;
 
     return [
         sort { $content_types{$b} <=> $content_types{$a} }
-            keys %content_types
+          keys %content_types
     ];
 }