From afe50154ab297e4ca99e0134a705f08c96970f74 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Mon, 21 Dec 2020 23:59:08 +0300
Subject: [PATCH] Base.pm: perlcritic fixes

---
 lib/Teapot/Bot/Object/Base.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Teapot/Bot/Object/Base.pm b/lib/Teapot/Bot/Object/Base.pm
index 38987ab..240b0b7 100644
--- a/lib/Teapot/Bot/Object/Base.pm
+++ b/lib/Teapot/Bot/Object/Base.pm
@@ -52,12 +52,12 @@ sub create_from_hash {
   my $obj   = $class->new(_brain => $brain);
 
   unless (defined $hash) {
-    cluck "Hash is undef";
+    cluck 'Hash is undef';
     return $obj;
   }
 
   unless (ref ($hash) eq 'HASH') {
-    cluck "Not a hash " . Dumper ($hash);
+    cluck 'Not a hash ' . Dumper ($hash);
     return $obj;
   }