blob: 18f77551f18295e7004ddc30e792f9786c78a34b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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 Bool $.ssl = False;
has Str $.ca-file;
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 $.socket is rw;
method Str { $!label }
|