p6.p6

unit package IRC::Client::Message;

role IRC::Client::Message {
    has       $.irc      is required;
    has Str:D $.nick     is required;
    has Str:D $.username is required;
    has Str:D $.host     is required;
    has Str:D $.usermask is required;
    has Str:D $.command  is required;
    has Str:D $.server   is required;
    has       @.args     is required;

    method Str { "$.command @.args[]" }
}

constant M = IRC::Client::Message;

role Privmsg          does M       { has $.what;                             }
role Privmsg::Me      does Privmsg {                                         }
role Privmsg::Channel does Privmsg { has $.channel;                          }
role Notice           does M       { has $.what;                             }
role Notice::Me       does Notice  {                                         }
role Notice::Channel  does Notice  { has $.channel;                          }
role Numeric          does M       {                                         }
role Unknown          does M       { method Str { "❚⚠❚ $.command @.args[]" } }