p6.p6

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[]" }
}

role IRC::Client::Message::Privmsg does IRC::Client::Message {
    has $.what;
}

role IRC::Client::Message::Privmsg::Channel does IRC::Client::Message::Privmsg {
    has $.channel;
}

role IRC::Client::Message::Privmsg::Me does IRC::Client::Message::Privmsg {}

role IRC::Client::Message::Unknown does IRC::Client::Message {
    method Str { "❚⚠❚ $.command @.args[]" }
}

role IRC::Client::Message::Numeric does IRC::Client::Message {}