From e56d58c07ccfe7d3e5ab9439d688259b70d60d95 Mon Sep 17 00:00:00 2001 From: David Phillips Date: Sat, 14 Jul 2018 19:34:37 +1200 Subject: Fix typo in module name --- Plugin/Tittilate.pm | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 Plugin/Tittilate.pm (limited to 'Plugin/Tittilate.pm') diff --git a/Plugin/Tittilate.pm b/Plugin/Tittilate.pm deleted file mode 100644 index b2c2286..0000000 --- a/Plugin/Tittilate.pm +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/env perl - -package Plugin::Tittilate; - -use strict; -use warnings; - -my %config; - -sub configure { - my $self = $_[0]; - my $cmdref = $_[1]; - my $cref = $_[2]; - %config = %$cref; - return $self; -} - -sub message { - my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; - my $gathered = ""; - my @expressions = (keys %{$config{triggers}}); - my $expression = join '|', @expressions; - while ($what =~ /($expression)/gi) { - my $matched = $1; - my $key; - # figure out which key matched - foreach (@expressions) { - if ($matched =~ /$_/i) { - $key = $_; - last; - } - } - $gathered .= $config{triggers}->{$key}; - } - return $gathered; -} -1; -- cgit v1.1