diff --git a/lib/Karma.pm b/lib/Karma.pm index 64ab097..42895c2 100644 --- a/lib/Karma.pm +++ b/lib/Karma.pm @@ -1,4 +1,5 @@ package Karma; +# Хранит и выдаёт карму фразы use 5.018; ## no critic (ProhibitImplicitImport) use strict; @@ -22,18 +23,17 @@ my $c = LoadConf (); my $cachedir = $c->{cachedir}; my $max = 5; -# swallow phrase and return answer sub KarmaSet (@) { my $chatid = shift; my $phrase = shift; my $action = shift; - $phrase = trim ($phrase); - if ((! defined $phrase) || $phrase eq '') { $phrase = ' '; } + $phrase = trim ($phrase); + my $cache = CHI->new ( driver => 'BerkeleyDB', root_dir => $cachedir, @@ -80,12 +80,12 @@ sub KarmaGet (@) { my $chatid = shift; my $phrase = shift; - $phrase = trim ($phrase); - if ((! defined $phrase) || $phrase eq '') { $phrase = ' '; } + $phrase = trim ($phrase); + my $cache = CHI->new ( driver => 'BerkeleyDB', root_dir => $cachedir,