From 1e3a40a23f5f7bce1e9512b0619b91986f001fa8 Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Mon, 21 Dec 2015 09:11:45 -0500 Subject: Add missing irc- prefixes to special methods --- lib/IRC/Client.pm6 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/IRC') 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 = {}; 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[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[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; } } -- cgit v1.1