aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

Base.pm: perlcritic fixes

Browse Source
This commit is contained in:
eleksir
2020-12-21 23:59:08 +03:00
parent 252bb86eb8
commit afe50154ab
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Teapot/Bot/Object/Base.pm
View File

@@ -52,12 +52,12 @@ sub create_from_hash {
my $obj = $class->new(_brain => $brain); my $obj = $class->new(_brain => $brain);
unless (defined $hash) { unless (defined $hash) {
cluck "Hash is undef"; cluck 'Hash is undef';
return $obj; return $obj;
} }
unless (ref ($hash) eq 'HASH') { unless (ref ($hash) eq 'HASH') {
cluck "Not a hash " . Dumper ($hash); cluck 'Not a hash ' . Dumper ($hash);
return $obj; return $obj;
} }