From 900285cda4e4105f02789d29ea71492105a5048c Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 8 Jun 2010 17:44:40 +0200
Subject: role to log and write

---
 lib/Net/HTTP/Console/Dispatcher/HTTP.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'lib/Net/HTTP/Console/Dispatcher/HTTP.pm')

diff --git a/lib/Net/HTTP/Console/Dispatcher/HTTP.pm b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
index c0e24ae..88f8814 100644
--- a/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
@@ -21,7 +21,7 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
             $self->_do_request_with_body($method, $path, $body);
         }
         else {
-            # XXX unsupporter method
+            $self->application->logger('error', 'unsupported HTTP method');
         }
         return 1;
     }
@@ -32,7 +32,7 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
             my ($content, $result) = $self->application->api_object->anonymous;
             $self->application->_set_and_show($content, $result);
         }catch{
-            # XXX error
+            $self->application->error('error', $_);
         };
     }
 
@@ -58,9 +58,7 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
             my ($content, $result) = $self->application->api_object->anonymous;
             $self->application->_set_and_show($content, $result);
         }catch{
-            warn $_;
-            use YAML::Syck;
-            warn Dump $_->http_error;
+            $self->application->error('error', $_);
         };
     }
 }
-- 
cgit v1.2.3