diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/Console/Role/Message.pm | 18 |
1 files changed, 18 insertions, 0 deletions
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; |