Added ircbot, telegrambot in draft condition

+ Добавлен бот для IRC, в черновом виде
+ Добавлен бот для Telegram, в черновом виде
* Отсортированы по алфавиту зависимости в cpanfile
* Список зависимостей в cpanfile приведён в актуальный вид
* Актуализирован список TODO
* Добавлены примеры для ботов в конфиг

lib/telegrambot.pm

@@ -0,0 +1,65 @@
+package telegrambot;
+
+use strict;
+use warnings "all";
+use diagnostics;
+use vars qw/$VERSION/;
+use v5.10.0;
+use Hailo;
+use Encode;
+use Data::Dumper;
+use Mojo::Base 'Telegram::Bot::Brain';
+
+use conf;
+
+use Exporter qw(import);
+our @EXPORT = qw(run_telegrambot);
+
+$VERSION = "1.0";
+
+my $c = loadConf();
+my $hailo;
+
+has token => $c->{telegrambot}->{token};
+
+sub __on_msg {
+	my ($self, $msg) = @_;
+	my $text = encode('utf-8', $msg->text);
+
+# is this a 1-on-1 ?
+	if ($msg->chat->is_user) {
+		$msg->reply("Я вас не знаю, идите лесом.");
+
+# group chat
+	} else {
+		my $qname = quotemeta($c->{telegrambot}->{name});
+		return unless $text =~ /^$qname[\,|\:]? (.+)/;
+		my $reply = $hailo->learn_reply(decode('utf-8', $1));
+	
+		if (defined($reply) && $reply ne '') {
+			$msg->reply($reply);
+		}
+	}
+}
+
+# setup our bot
+sub init {
+	$hailo = Hailo->new(
+		brain => $c->{telegrambot}->{brain},
+		order => 3
+	);
+	my $self = shift;
+	$self->add_listener(\&__on_msg);
+}
+
+sub run_telegrambot {
+	while (sleep 3) {
+		eval {
+			telegrambot->new->think;
+		}
+	}
+}
+
+1;
+
+# vim: ft=perl noet ai ts=4 sw=4 sts=4: