diff options
author | Zoffix Znet <cpan@zoffix.com> | 2015-12-21 09:11:45 -0500 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2015-12-21 09:11:45 -0500 |
commit | 1e3a40a23f5f7bce1e9512b0619b91986f001fa8 (patch) | |
tree | a1fad1fcdbde725a205d413c7fb81a6c5e44d218 /lib | |
parent | c97eb34b64788602713fcc77d3c18ab17b629318 (diff) |
Add missing irc- prefixes to special methods
Diffstat (limited to 'lib')
-rw-r--r-- | lib/IRC/Client.pm6 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index c781ef1..eaffb23 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -35,7 +35,7 @@ class IRC::Client:ver<1.002001> { $e<pipe> = {}; for @!plugs.grep(*.^can: 'irc-all-events') -> $p { - my $res = $p.all-events(self, $e); + my $res = $p.irc-all-events(self, $e); next EVENTS unless $res === IRC_NOT_HANDLED; } @@ -43,7 +43,7 @@ class IRC::Client:ver<1.002001> { and $e<params>[0] eq $!nick ) { for @!plugs.grep(*.^can: 'irc-privmsg-me') -> $p { - my $res = $p.privmsg-me(self, $e); + my $res = $p.irc-privmsg-me(self, $e); next EVENTS unless $res === IRC_NOT_HANDLED; } } @@ -52,7 +52,7 @@ class IRC::Client:ver<1.002001> { and $e<params>[0] eq $!nick ) { for @!plugs.grep(*.^can: 'irc-notice-me') -> $p { - my $res = $p.notice-me(self, $e); + my $res = $p.irc-notice-me(self, $e); next EVENTS unless $res === IRC_NOT_HANDLED; } } @@ -64,7 +64,7 @@ class IRC::Client:ver<1.002001> { } for @!plugs.grep(*.^can: 'irc-unhandled') -> $p { - my $res = $p.unhandled(self, $e); + my $res = $p.irc-unhandled(self, $e); next EVENTS unless $res === IRC_NOT_HANDLED; } } |