1

First touch to satisfy perlcritic

This commit is contained in:
eleksir
2020-10-28 18:18:09 +03:00
parent f816840e14
commit 033441c513
30 changed files with 74 additions and 65 deletions

View File

@@ -1,8 +1,6 @@
package Teapot::Bot::Object::Message;
$Teapot::Bot::Object::Message::VERSION = '0.021';
# ABSTRACT: The base class for the Telegram type "Message".
use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::User;
@@ -30,6 +28,8 @@ use Teapot::Bot::Object::InlineKeyboardMarkup;
use Data::Dumper;
$Teapot::Bot::Object::Message::VERSION = '0.021';
# basic message stuff
has 'message_id';
has 'from'; # User
@@ -124,7 +124,7 @@ sub fields {
}
sub arrays {
qw/photo entities caption_entities new_chat_members new_chat_photo/
return qw/photo entities caption_entities new_chat_members new_chat_photo/;
}