First touch to satisfy perlcritic
This commit is contained in:
@@ -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/;
|
||||
}
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user