Refactor some parts of bot

- Move most modules to subdirs
- Rename functions according perlcritic guidelines
- Fix and add some bugs

lib/BotLib/Lat.pm

@@ -0,0 +1,73 @@
+package BotLib::Lat;
+# famous latin phases taken from https://ru.wikipedia.org/wiki/Список_крылатых_латинских_выражений
+
+use 5.018;
+use strict;
+use warnings;
+use utf8;
+use open qw (:std :utf8);
+use English qw ( -no_match_vars );
+use Carp qw (cluck);
+use File::Basename qw (dirname);
+use File::Path qw (make_path);
+use Hailo;
+use BotLib::Conf qw (loadConf);
+
+use version; our $VERSION = qw (1.0);
+use Exporter qw (import);
+our @EXPORT_OK = qw (Train Lat);
+
+my $c = LoadConf ();
+my $brain = $c->{lat}->{brain};
+my $srcfile = $c->{lat}->{src};
+
+sub Train () {
+	my $braindir = dirname $brain;
+
+	unless (-d $braindir) {
+		make_path ($braindir) or do {
+			cluck "Unable to create $braindir: $OS_ERROR";
+			exit 1;
+		};
+	}
+
+	my $lat = Hailo->new (
+		brain => $brain,
+		# in our case mean amount of words in phase is 3
+		order => 2
+	);
+
+	$lat->train ($srcfile);
+	my ($tokens, $expressions) = ($lat->stats ())[0,1];
+	printf "Total tokens: %s\nTotal expressions: %s\n", $tokens, $expressions;
+	$lat->save ();
+	return;
+}
+
+# just return answer
+sub Lat () {
+	my $braindir = dirname $brain;
+
+	unless (-d $braindir) {
+		cluck "[ERROR] No lat module data: $braindir is absent! Train lat first.";
+		return '';
+	}
+
+	unless (-f $brain) {
+		cluck "[ERROR] No lat module data: $brain is absent! Train lat first.";
+		return '';
+	}
+
+	my $lat = Hailo->new (
+		brain => $brain,
+		# in our case mean amount of words in phase is 3
+		order => 2,
+		save_on_exit => 0
+	);
+
+	return $lat->reply ();
+}
+
+1;
+
+# vim: ft=perl noet ai ts=4 sw=4 sts=4: