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

Update objects of Teapot::Bot according Bot API docs. Add missing fields.

Browse Source 
+ Add missing fields some of existing objects
* Fix copy-paste errors in Teapot::Bot::Object::PollAnswer
This commit is contained in:
eleksir
2021-05-01 00:40:18 +03:00
parent ec6c63a954
commit b8c3f4957c
8 changed files with 41 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -8,6 +8,7 @@ use Carp qw/croak/;
$Teapot::Bot::Object::Animation::VERSION = '0.022'; $Teapot::Bot::Object::Animation::VERSION = '0.022';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'width'; has 'width';
has 'height'; has 'height';
has 'duration'; has 'duration';
@@ -17,7 +18,8 @@ has 'mime_type';
has 'file_size'; has 'file_size';
sub fields { sub fields {
return { scalar => [qw/file_id width height duration file_name mime_type file_size/], return { scalar => [qw/file_id file_unique_id width height duration file_name mime_type
file_size/],
'Teapot::Bot::Object::PhotoSize' => [qw/thumb/], 'Teapot::Bot::Object::PhotoSize' => [qw/thumb/],
}; };
} }

39
lib/Teapot/Bot/Object/Chat.pm
View File

@@ -11,27 +11,30 @@ $Teapot::Bot::Object::Chat::VERSION = '0.022';
has 'id'; has 'id';
has 'type'; has 'type';
has 'title'; # Optional. has 'title'; # Optional.
has 'username'; # Optional. has 'username'; # Optional.
has 'first_name'; # Optional. has 'first_name'; # Optional.
has 'last_name'; # Optional. has 'last_name'; # Optional.
has 'photo'; # Teapot::Bot::Object::ChatPhoto. Optional. Returned only in getChat. has 'photo'; # Teapot::Bot::Object::ChatPhoto. Optional. Returned only in getChat.
has 'description'; # Optional. Returned only in getChat. has 'bio'; # Optional. Bio of the other party in a private chat. Returned only in getChat.
has 'invite_link'; # Optional. Returned only in getChat. has 'description'; # Optional. Returned only in getChat.
has 'pinned_message'; # Teapot::Bot::Object::Message has 'invite_link'; # Optional. Returned only in getChat.
has 'permissions'; # Teapot::Bot::Object::ChatPermissions. Optional. Default chat member permissions, for has 'pinned_message'; # Teapot::Bot::Object::Message
# groups and supergroups. Returned only in getChat. has 'permissions'; # Teapot::Bot::Object::ChatPermissions. Optional. Default chat member permissions, for
has 'slow_mode_delay'; # Optional. Returned only in getChat. # groups and supergroups. Returned only in getChat.
has 'sticker_set_name'; # Optional. Returned only in getChat. has 'slow_mode_delay'; # Optional. Returned only in getChat.
has 'can_set_sticker_set'; # Optional. Returned only in getChat. has 'message_auto_delete_time'; # Optional. The time after which all messages sent to the chat will be automatically
has 'linked_chat_id'; # Optional. greater than 32 bits, smaller than 52 bits # deleted; in seconds. Returned only in getChat.
has 'location'; # Optional. Returned only in getChat. has 'sticker_set_name'; # Optional. Returned only in getChat.
has 'can_set_sticker_set'; # Optional. Returned only in getChat.
has 'linked_chat_id'; # Optional. greater than 32 bits, smaller than 52 bits
has 'location'; # Optional. Returned only in getChat.
sub fields { sub fields {
return { return {
'scalar' => [qw/id type title username first_name last_name description 'scalar' => [qw/id type title username first_name last_name bio description
invite_link slow_mode_delay sticker_set_name invite_link slow_mode_delay message_auto_delete_time
can_set_sticker_set linked_chat_id/], sticker_set_name can_set_sticker_set linked_chat_id/],
'Teapot::Bot::Object::ChatPhoto' => [qw/photo/], 'Teapot::Bot::Object::ChatPhoto' => [qw/photo/],
'Teapot::Bot::Object::Message' => [qw/pinned_message/], 'Teapot::Bot::Object::Message' => [qw/pinned_message/],
'Teapot::Bot::Object::ChatPermissions' => [qw/permissions/], 'Teapot::Bot::Object::ChatPermissions' => [qw/permissions/],

3
lib/Teapot/Bot/Object/Contact.pm
View File

@@ -9,10 +9,11 @@ has 'phone_number';
has 'first_name'; has 'first_name';
has 'last_name'; has 'last_name';
has 'user_id'; has 'user_id';
has 'vcard';
sub fields { sub fields {
return { return {
scalar => [qw/phone_number first_name last_name user_id/], scalar => [qw/phone_number first_name last_name user_id vcard/],
}; };
} }

3
lib/Teapot/Bot/Object/Document.pm
View File

@@ -8,6 +8,7 @@ use Teapot::Bot::Object::PhotoSize;
$Teapot::Bot::Object::Document::VERSION = '0.022'; $Teapot::Bot::Object::Document::VERSION = '0.022';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'thumb'; #PhotoSize has 'thumb'; #PhotoSize
has 'file_name'; has 'file_name';
has 'mime_type'; has 'mime_type';
@@ -15,7 +16,7 @@ has 'file_size';
sub fields { sub fields {
return { return {
scalar => [qw/file_id file_name mime_type file_size/], scalar => [qw/file_id file_unique_id file_name mime_type file_size/],
'Teapot::Bot::Object::PhotoSize' => [qw/thumb/] 'Teapot::Bot::Object::PhotoSize' => [qw/thumb/]
}; };
} }

3
lib/Teapot/Bot/Object/PhotoSize.pm
View File

@@ -7,12 +7,13 @@ use Carp qw/croak/;
$Teapot::Bot::Object::PhotoSize::VERSION = '0.022'; $Teapot::Bot::Object::PhotoSize::VERSION = '0.022';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'width'; has 'width';
has 'height'; has 'height';
has 'file_size'; has 'file_size';
sub fields { sub fields {
return { scalar => [qw/file_id width height file_size/] }; return { scalar => [qw/file_id file_unique_id width height file_size/] };
} }
1; 1;

14
lib/Teapot/Bot/Object/PollAnswer.pm
View File

@@ -1,9 +1,9 @@
package Teapot::Bot::Object::PollOption; package Teapot::Bot::Object::PollAnswer;
# ABSTRACT: The base class for Telegram 'PollOption' type objects # ABSTRACT: The base class for Telegram 'PollOption' type objects
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::PollOption::VERSION = '0.022'; $Teapot::Bot::Object::PollAnswer::VERSION = '0.022';
has 'poll_id'; has 'poll_id';
has 'user'; has 'user';
@@ -30,17 +30,17 @@ __END__
=head1 NAME =head1 NAME
Teapot::Bot::Object::PollOption - The base class for Telegram 'PollOption' type objects Teapot::Bot::Object::PollAnswer - The base class for Telegram 'PollAnswer' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.022
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'PollOption' type objects. The base class for Telegram 'PollAnswer' type objects.
See L<https://core.telegram.org/bots/api#polloption> for details of the See L<https://core.telegram.org/bots/api#pollanswer> for details of the
attributes available for L<Teapot::Bot::Object::PollOption> objects. attributes available for L<Teapot::Bot::Object::PollAnswer> objects.
=head1 AUTHOR =head1 AUTHOR
@@ -48,7 +48,7 @@ Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2020 Sergei Fedosov <eleksir@gmail.com>. This software is copyright (c) 2021 Sergei Fedosov <eleksir@gmail.com>.
This is free software; you can redistribute it and/or modify it under This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself. the same terms as the Perl 5 programming language system itself.

3
lib/Teapot/Bot/Object/VideoNote.pm
View File

@@ -8,6 +8,7 @@ use Teapot::Bot::Object::PhotoSize;
$Teapot::Bot::Object::VideoNote::VERSION = '0.022'; $Teapot::Bot::Object::VideoNote::VERSION = '0.022';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'length'; has 'length';
has 'duration'; has 'duration';
has 'mime_type'; has 'mime_type';
@@ -16,7 +17,7 @@ has 'file_size';
sub fields { sub fields {
return { return {
scalar => [qw/file_id length duration mime_type file_size/], scalar => [qw/file_id file_unique_id length duration mime_type file_size/],
'Teapot::Bot::Object::PhotoSize' => [qw/thumb /], 'Teapot::Bot::Object::PhotoSize' => [qw/thumb /],
}; };
} }

3
lib/Teapot/Bot/Object/Voice.pm
View File

@@ -6,12 +6,13 @@ use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Voice::VERSION = '0.022'; $Teapot::Bot::Object::Voice::VERSION = '0.022';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'duration'; has 'duration';
has 'mime_type'; has 'mime_type';
has 'file_size'; has 'file_size';
sub fields { sub fields {
return { scalar => [qw/file_id duration mime_type file_size/] }; return { scalar => [qw/file_id file_unique_id duration mime_type file_size/] };
} }
1; 1;