File Coverage

blib/lib/POE/Component/IRC/Plugin/Hello.pm

Criterion	Covered	Total	%
statement	43	47	91.4
branch	2	2	100.0
condition			n/a
subroutine	13	15	86.6
pod	0	4	0.0
total	58	68	85.2

package POE::Component::IRC::Plugin::Hello;

use 5.014000;
use strict;
use warnings;
use utf8;
use Encode qw/encode decode/;
use Unicode::Normalize qw/NFC/;

our $VERSION = '0.001004';

use List::Util qw/first/;

use IRC::Utils qw/parse_user/;
use POE::Component::IRC::Plugin qw/PCI_EAT_NONE/;

sub new {
	my $class = shift;
	my $self = {
		greetings => [
			qw/privet hello salut salutari neata neaţa neața neatza
			   hola hey hi bonjour wassup sup hallo chikmaa
			   tungjatjeta parev salam namaskaar mingalarba ahoy
			   saluton allo moin aloha namaste shalom ciào ciao servus
			   salve ave merhaba witaj hei hola selam sawubona
			   goedemorgen mogge hoi καλημέρα/,
			'what\'s up', 'que tal', 'こんにちは', '你好', 'ni hao',
			'добро јутро', 'γεια σας', 'bom dia', 'hyvää huomenta'],
		@_
	};

	bless $self, $class
}

sub PCI_register {
	my ($self, $irc) = @_;
	$irc->plugin_register($self, SERVER => qw/public/);
	1
}

sub PCI_unregister { 1 }

sub S_public{
	my ($self, $irc, $rfullname, $rchannels, $rmessage) = @_;
	my $nick = parse_user $$rfullname;
	my $mynick = $irc->nick_name;
	my $message = NFC decode 'UTF-8', $$rmessage;
	my @hello = @{$self->{greetings}};

	my $match = first { $message =~ /^\s*(?:$mynick(?:)[:,])?\s*$_\s*[.!]?\s*$/is } @hello;
	my $randhello = encode 'UTF-8', $hello[int rand $#hello];
	$irc->yield(privmsg => $$rchannels->[0] => "$randhello, $nick") if $match;
	PCI_EAT_NONE
}

1;
__END__