1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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 message($message) { print $message."\n"; } } 1;