role to log and write

3 files changed, 21 insertions, 3 deletions

diff --git a/lib/Net/HTTP/Console/Role/HTTP/Response.pm b/lib/Net/HTTP/Console/Role/HTTP/Response.pm
index 606c7de..27f6925 100644
--- a/lib/Net/HTTP/Console/Role/HTTP/Response.pm
+++ b/lib/Net/HTTP/Console/Role/HTTP/Response.pm
@@ -24,12 +24,12 @@ role Net::HTTP::Console::Role::HTTP::Response {
     );
 
     method _show_last_content {
-        print $self->_last_http_content;
+        $self->print($self->_last_http_content);
     }
 
     method _show_last_headers {
         foreach my $k (keys %{$self->_last_http_response->headers}) {
-            print "$k: ".$self->_last_http_response->header($k)."\n";
+            $self->print("$k: ".$self->_last_http_response->header($k));
         }
     }
 
diff --git a/lib/Net/HTTP/Console/Role/Message.pm b/lib/Net/HTTP/Console/Role/Message.pm
new file mode 100644
index 0000000..4b3fce6
--- /dev/null
+++ b/lib/Net/HTTP/Console/Role/Message.pm
@@ -0,0 +1,18 @@
+package Net::HTTP::Console::Role::Message;
+
+use MooseX::Declare;
+
+role Net::HTTP::Console::Role::Message {
+
+    # XXX colors ?
+    method logger($level, $message) {
+        print "[".uc($level)."] ".$message."\n";
+    }
+
+    method print($message) {
+        print $message."\n";
+    }
+
+}
+
+1;
diff --git a/lib/Net/HTTP/Console/Role/Plugins.pm b/lib/Net/HTTP/Console/Role/Plugins.pm
index 2bddccd..8486cdb 100644
--- a/lib/Net/HTTP/Console/Role/Plugins.pm
+++ b/lib/Net/HTTP/Console/Role/Plugins.pm
@@ -43,7 +43,7 @@ role Net::HTTP::Console::Role::Plugins {
                 last if ($result = $_->dispatch($input));
             }
         }catch{
-            print "[ERROR]: ".$_;
+            $self->application->logger('error', $_);
         };
     }
 }