diff options
author | Patrick Spek <p.spek@tyil.nl> | 2018-12-17 06:22:24 +0100 |
---|---|---|
committer | Patrick Spek <p.spek@tyil.nl> | 2018-12-17 06:22:24 +0100 |
commit | b8f67601e0086d7a2403e4f47ca720e3df3c5365 (patch) | |
tree | 4a10ae1e72219fe4bd2c5c87c6699a53e9a13167 /lib/IRC/Client.pm6 | |
parent | d28cf05eedae3cd41246773d997dbfb523e552e6 (diff) |
Make auto-prefixing nicks optional
This patch adds the :autoprefix option, which is True by default. When set to
False, the .reply method should no longer prefix the message with the triggering
user's nick.
Diffstat (limited to 'lib/IRC/Client.pm6')
-rw-r--r-- | lib/IRC/Client.pm6 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index cd2348e..f0bc7a8 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -21,6 +21,7 @@ has $.debug; has Lock $!lock = Lock.new; has Channel $!event-pipe = Channel.new; has Channel $!socket-pipe = Channel.new; +has Bool $.autoprefix = True; my &colored = (try require Terminal::ANSIColor) === Nil && sub (Str $s, $) { $s } || @@ -44,9 +45,12 @@ submethod BUILD ( Str:D :$userhost = 'localhost', Str:D :$userreal = 'Perl6 IRC Client', :$channels = ('#perl6',), + Bool:D :$autoprefix = True, ) { @!filters = @$filters; @!plugins = @$plugins; + $!autoprefix = $autoprefix; + my %servers = %$servers; my %all-conf = :$port, :$password, :$host, :$nick, :$alias, |