Added logging to 4xx status handlers

[catagits/Catalyst-Action-REST.git] / lib / Catalyst / Controller / REST.pm

diff --git a/lib/Catalyst/Controller/REST.pm b/lib/Catalyst/Controller/REST.pm
index 0b1aaca..91434b5 100644 (file)
--- a/lib/Catalyst/Controller/REST.pm
+++ b/lib/Catalyst/Controller/REST.pm
@@ -61,6 +61,21 @@ sub status_ok {
     return 1;
 }
 
+sub status_bad_request {
+    my $self = shift;
+    my $c = shift;
+    my %p = validate(@_,
+        {
+            message => { type => SCALAR }, 
+        },
+    );
+
+    $c->response->status(400);
+    $c->log->debug("Status Bad Request: " . $p{'message'});
+    $self->_set_entity($c, { error => $p{'message'} });
+    return 1;
+}
+
 sub status_not_found {
     my $self = shift;
     my $c = shift;
@@ -71,7 +86,8 @@ sub status_not_found {
     );
 
     $c->response->status(404);
-    $c->response->body($p{'message'});
+    $c->log->debug("Status Not Found: " . $p{'message'});
+    $self->_set_entity($c, { error => $p{'message'} });
     return 1;
 }