blob: 2ed5d6977e95173c65c6f3017b75cc532c4c9bcc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
unit class IRC::Client::Server;
has @.channels where .all ~~ Str|Pair;
has @.nick where .all ~~ Str;
has @.alias where .all ~~ Str|Regex;
has Int $.port where 0 <= $_ <= 65535;
has Str $.label;
has Str $.host;
has Str $.password;
has Str $.username;
has Str $.userhost;
has Str $.userreal;
has Str $.current-nick is rw;
has Bool $.is-connected is rw;
has Bool $.has-quit is rw;
has IO::Socket::Async $.socket is rw;
method Str { $!label }
|