Perlcritic and update README.md

.perlcriticrc

@@ -98,3 +98,6 @@ lib_sections    = NAME | VERSION | DESCRIPTION | AUTHOR | LICENSE AND COPYRIGHT
 
 [-ControlStructures::ProhibitDeepNests]
 # jabber bot lib have very nested structures that a bit fiddle to navigate :(
+
+[-BuiltinFunctions::ProhibitComplexMappings]
+# so how I suppose to chomp() every damn string in array?

README.md

@@ -5,6 +5,10 @@
 It is based on Perl modules [Bot::IRC][1] and [Hailo][2] as
 conversation generator.
 
+Module [Bot::IRC][1] is vendored and tailored to this particular bot because
+of utf-8 issues in original source which are fix by hacking (yes, it is not
+canonical/convinient way fix it, what done is already done).
+
 Config located in **data/config.json**, sample config provided as
 **data/sample_config.json**.
 

lib/Bot/IRC.pm

@@ -4,7 +4,7 @@ package Bot::IRC;
 use 5.014;
 use exact;
 
-use Encode qw (_utf8_on _utf8_off encode_utf8 decode_utf8);
+use Encode qw (_utf8_on _utf8_off);
 use Daemon::Device;
 use Date::Format 'time2str';
 use IO::Socket::IP -register;

lib/Bot/IRC/OnMessage.pm

@@ -196,3 +196,5 @@ sub init {
 1;
 
 __END__
+
+# vim: set ft=perl noet ai ts=4 sw=4 sts=4:

lib/IRCBot.pm

@@ -13,8 +13,6 @@ use version; our $VERSION = qw (1.0);
 use Exporter qw (import);
 our @EXPORT_OK = qw (RunIRCBot);
 
-my $c = LoadConf ();
-
 
 sub RunIRCBot {
 	my $c = LoadConf ();
@@ -50,6 +48,8 @@ sub RunIRCBot {
 	} else {
 		$bot->run;
 	}
+
+	return;
 }