blob: 1857fcc8d5ae13d123030c3381c41191288fc2b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
unit class IRC::Client::Server;
has @.channels where .all ~~ Str;
has @.nick where .all ~~ Str;
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 }
|