From 7fa7d0a4e3011caa6ad824c59cde43d4fe7c485b Mon Sep 17 00:00:00 2001 From: David Phillips Date: Mon, 10 Sep 2018 20:05:21 +1200 Subject: Rename handlers to on_* --- Plugin/Antiflood.pm | 6 +++--- Plugin/Jinx.pm | 4 ++-- Plugin/Titillate.pm | 6 +++--- Plugin/URL_Title.pm | 6 +++--- 4 files changed, 11 insertions(+), 11 deletions(-) (limited to 'Plugin') diff --git a/Plugin/Antiflood.pm b/Plugin/Antiflood.pm index fbd77a5..eafa50c 100644 --- a/Plugin/Antiflood.pm +++ b/Plugin/Antiflood.pm @@ -18,7 +18,7 @@ sub configure { return $self; } -sub message { +sub on_message { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $channel = $where->[0]; my $nick = (split /!/, $who)[0]; @@ -36,7 +36,7 @@ sub message { return; } -sub action { - message(@_); +sub on_action { + on_message(@_); } 1; diff --git a/Plugin/Jinx.pm b/Plugin/Jinx.pm index 507f242..04c43c8 100644 --- a/Plugin/Jinx.pm +++ b/Plugin/Jinx.pm @@ -21,7 +21,7 @@ sub configure { return $self; } -sub message { +sub on_message { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; return if defined $last_response and $what eq $last_response; @@ -36,7 +36,7 @@ sub message { return; } -sub action { +sub on_action { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; return if defined $last_response and $what eq $last_response; diff --git a/Plugin/Titillate.pm b/Plugin/Titillate.pm index fe31ba3..79f1a4a 100644 --- a/Plugin/Titillate.pm +++ b/Plugin/Titillate.pm @@ -13,7 +13,7 @@ sub configure { return $self; } -sub message { +sub on_message { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $gathered = ""; my @expressions = (keys %{$config{triggers}}); @@ -33,7 +33,7 @@ sub message { return $gathered; } -sub action { - message(@_); +sub on_action { + on_message(@_); } 1; diff --git a/Plugin/URL_Title.pm b/Plugin/URL_Title.pm index 6e0d775..53d6326 100644 --- a/Plugin/URL_Title.pm +++ b/Plugin/URL_Title.pm @@ -27,7 +27,7 @@ sub start_handler "tagname,self"); } -sub message +sub on_message { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $url; @@ -81,7 +81,7 @@ sub message return $composed_title; } -sub action { - message(@_); +sub on_action { + on_message(@_); } 1; -- cgit v1.1