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

Update Teapot lib to comply with api v5.6, v5.7, v6.0

Browse Source
This commit is contained in:
eleksir
2022-04-16 19:27:32 +03:00
parent 305550f6cf
commit 216a139c18
46 changed files with 277 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Teapot/Bot.pm
View File

@@ -4,7 +4,7 @@ use strict;
use warnings; use warnings;
use 5.018; ## no critic (ProhibitImplicitImport) use 5.018; ## no critic (ProhibitImplicitImport)
use utf8; use utf8;
$Teapot::Bot::VERSION = '0.022'; $Teapot::Bot::VERSION = '0.023';
# ABSTRACT: A base class to make your very own Telegram bot # ABSTRACT: A base class to make your very own Telegram bot
1; 1;
@@ -25,7 +25,7 @@ A base class to make your very own Telegram bot
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 SYNOPSIS =head1 SYNOPSIS

4
lib/Teapot/Bot/Brain.pm
View File

@@ -28,7 +28,7 @@ use Teapot::Bot::Object::Chat ();
use Teapot::Bot::Object::ChatMember (); use Teapot::Bot::Object::ChatMember ();
use Teapot::Bot::Object::ChatInviteLink (); use Teapot::Bot::Object::ChatInviteLink ();
$Teapot::Bot::Brain::VERSION = '0.022'; $Teapot::Bot::Brain::VERSION = '0.023';
# base class for building telegram robots with Mojolicious # base class for building telegram robots with Mojolicious
has longpoll_time => 60; has longpoll_time => 60;
@@ -716,7 +716,7 @@ Teapot::Bot::Brain - A base class to make your very own Telegram bot
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 SYNOPSIS =head1 SYNOPSIS

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PhotoSize (); use Teapot::Bot::Object::PhotoSize ();
$Teapot::Bot::Object::Animation::VERSION = '0.022'; $Teapot::Bot::Object::Animation::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -43,7 +43,7 @@ Teapot::Bot::Object::Animation - The base class for Telegram message 'Animation'
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'Animation' type. The base class for Telegram message 'Animation' type.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Audio::VERSION = '0.022'; $Teapot::Bot::Object::Audio::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -41,7 +41,7 @@ Teapot::Bot::Object::Audio - The base class for Telegram 'Audio' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Audio' type objects. The base class for Telegram 'Audio' type objects.

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

@@ -13,7 +13,7 @@ use List::Util qw/any/;
use Mojo::Base -base; use Mojo::Base -base;
$Teapot::Bot::Object::Base::VERSION = '0.022'; $Teapot::Bot::Object::Base::VERSION = '0.023';
has '_brain'; # a reference to our brain has '_brain'; # a reference to our brain
@@ -187,7 +187,7 @@ Teapot::Bot::Object::Base - The base class for all Telegram::Bot::Object objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION

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

@@ -7,7 +7,7 @@ use 5.018; ## no critic (ProhibitImplicitImport)
use utf8; use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::CallbackGame::VERSION = '0.022'; $Teapot::Bot::Object::CallbackGame::VERSION = '0.023';
# https://core.telegram.org/bots/api#callbackgame # https://core.telegram.org/bots/api#callbackgame
# "A placeholder, currently holds no information. Use BotFather to set up your game" # "A placeholder, currently holds no information. Use BotFather to set up your game"
@@ -30,7 +30,7 @@ Teapot::Bot::Object::CallbackGame - The base class for Telegram message 'Callbac
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'CallbackGame' type. The base class for Telegram message 'CallbackGame' type.

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

@@ -12,7 +12,7 @@ use Teapot::Bot::Object::Message ();
use Teapot::Bot::Object::ChatPermissions (); use Teapot::Bot::Object::ChatPermissions ();
use Teapot::Bot::Object::ChatLocation (); use Teapot::Bot::Object::ChatLocation ();
$Teapot::Bot::Object::Chat::VERSION = '0.022'; $Teapot::Bot::Object::Chat::VERSION = '0.023';
has 'id'; has 'id';
has 'type'; has 'type';
@@ -77,7 +77,7 @@ Teapot::Bot::Object::Chat - The base class for Telegram 'Chat' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Chat' type objects. The base class for Telegram 'Chat' type objects.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::User (); use Teapot::Bot::Object::User ();
$Teapot::Bot::Object::ChatInviteLink::VERSION = '0.022'; $Teapot::Bot::Object::ChatInviteLink::VERSION = '0.023';
has 'invite_link'; has 'invite_link';
has 'creator'; has 'creator';
@@ -44,7 +44,7 @@ Teapot::Bot::Object::ChatInviteLink - The base class for Telegram message 'ChatI
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'ChatInviteLink' type. The base class for Telegram message 'ChatInviteLink' type.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::ChatLocation::VERSION = '0.022'; $Teapot::Bot::Object::ChatLocation::VERSION = '0.023';
has 'location'; has 'location';
has 'address'; has 'address';
@@ -34,7 +34,7 @@ Teapot::Bot::Object::ChatLocation - The base class for Telegram message 'ChatLoc
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'ChatLocation' type. The base class for Telegram message 'ChatLocation' type.

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

@@ -12,7 +12,7 @@ use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::User (); use Teapot::Bot::Object::User ();
$Teapot::Bot::Object::ChatMember::VERSION = '0.022'; $Teapot::Bot::Object::ChatMember::VERSION = '0.023';
# ChatMemberOwner # ChatMemberOwner
has 'user'; has 'user';
@@ -145,7 +145,7 @@ Teapot::Bot::Object::ChatMember - The base class for Telegram 'ChatMember' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'ChatMember' type objects. The base class for Telegram 'ChatMember' type objects.

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

@@ -13,7 +13,7 @@ use Teapot::Bot::Object::ChatMember ();
use Teapot::Bot::Object::ChatInviteLink (); use Teapot::Bot::Object::ChatInviteLink ();
use Teapot::Bot::Object::Voice (); use Teapot::Bot::Object::Voice ();
$Teapot::Bot::Object::ChatMemberUpdated::VERSION = '0.022'; $Teapot::Bot::Object::ChatMemberUpdated::VERSION = '0.023';
has 'chat'; has 'chat';
has 'from'; has 'from';
@@ -50,7 +50,7 @@ Teapot::Bot::Object::ChatMemberUpdated - The base class for Telegram 'ChatMember
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'ChatMemberUpdated' type objects. The base class for Telegram 'ChatMemberUpdated' type objects.

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

@@ -10,7 +10,7 @@ use Carp qw(carp);
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Brain (); use Teapot::Bot::Brain ();
$Teapot::Bot::Object::ChatPermissions::VERSION = '0.022'; $Teapot::Bot::Object::ChatPermissions::VERSION = '0.023';
# all fields are optional # all fields are optional
# N.B. Some of the fields "overlaps" other, so in order to guess valid set of permissions you should check all of them # N.B. Some of the fields "overlaps" other, so in order to guess valid set of permissions you should check all of them
@@ -98,7 +98,7 @@ Teapot::Bot::Object::ChatPermissions - The base class for Telegram 'ChatPermissi
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'ChatPermissions' type objects. The base class for Telegram 'ChatPermissions' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::ChatPhoto::VERSION = '0.022'; $Teapot::Bot::Object::ChatPhoto::VERSION = '0.023';
has 'small_file_id'; has 'small_file_id';
has 'small_file_unique_id'; has 'small_file_unique_id';
@@ -35,7 +35,7 @@ Teapot::Bot::Object::ChatPhoto - The base class for Telegram 'ChatPhoto' type ob
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'ChatPhoto' type objects. The base class for Telegram 'ChatPhoto' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Contact::VERSION = '0.022'; $Teapot::Bot::Object::Contact::VERSION = '0.023';
has 'phone_number'; has 'phone_number';
has 'first_name'; has 'first_name';
@@ -36,7 +36,7 @@ Teapot::Bot::Object::Contact - The base class for Telegram 'Contact' objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Contact' objects. The base class for Telegram 'Contact' objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Dice::VERSION = '0.022'; $Teapot::Bot::Object::Dice::VERSION = '0.023';
has 'emoji'; has 'emoji';
has 'value'; has 'value';
@@ -31,7 +31,7 @@ Teapot::Bot::Object::Dice - The base class for Telegram message 'Dice' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'Dice' type. The base class for Telegram message 'Dice' type.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PhotoSize (); use Teapot::Bot::Object::PhotoSize ();
$Teapot::Bot::Object::Document::VERSION = '0.022'; $Teapot::Bot::Object::Document::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -39,7 +39,7 @@ Teapot::Bot::Object::Document - The base class for Telegram 'Document' objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Document' objects. The base class for Telegram 'Document' objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::EncryptedCredentials::VERSION = '0.022'; $Teapot::Bot::Object::EncryptedCredentials::VERSION = '0.023';
has 'data'; has 'data';
has 'hash'; has 'hash';
@@ -32,7 +32,7 @@ Teapot::Bot::Object::EncryptedCredentials - The base class for Telegram 'Encrypt
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'EncryptedCredentials' type objects. The base class for Telegram 'EncryptedCredentials' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::EncryptedPassportElement::VERSION = '0.022'; $Teapot::Bot::Object::EncryptedPassportElement::VERSION = '0.023';
# XXX Implement rest of this # XXX Implement rest of this
# https://core.telegram.org/bots/api#encryptedpassportelement # https://core.telegram.org/bots/api#encryptedpassportelement
@@ -38,7 +38,7 @@ Teapot::Bot::Object::EncryptedPassportElement - The base class for Telegram 'Enc
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'EncryptedPassportElement' type objects. The base class for Telegram 'EncryptedPassportElement' type objects.

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

@@ -11,7 +11,7 @@ use Teapot::Bot::Object::PhotoSize ();
use Teapot::Bot::Object::Animation (); use Teapot::Bot::Object::Animation ();
use Teapot::Bot::Object::MessageEntity (); use Teapot::Bot::Object::MessageEntity ();
$Teapot::Bot::Object::Game::VERSION = '0.022'; $Teapot::Bot::Object::Game::VERSION = '0.023';
has 'title'; has 'title';
has 'description'; has 'description';
@@ -45,7 +45,7 @@ Teapot::Bot::Object::Game - The base class for Telegram message 'Game' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'Game' type. The base class for Telegram message 'Game' type.

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

@@ -10,7 +10,7 @@ use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::LoginUrl (); use Teapot::Bot::Object::LoginUrl ();
use Teapot::Bot::Object::CallbackGame (); use Teapot::Bot::Object::CallbackGame ();
$Teapot::Bot::Object::InlineKeyboardButton::VERSION = '0.022'; $Teapot::Bot::Object::InlineKeyboardButton::VERSION = '0.023';
has 'text'; has 'text';
has 'url'; has 'url';
@@ -43,7 +43,7 @@ Teapot::Bot::Object::InlineKeyboardButton - The base class for Telegram 'InlineK
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'InlineKeyboardButton' type objects. The base class for Telegram 'InlineKeyboardButton' type objects.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::InlineKeyboardButton (); use Teapot::Bot::Object::InlineKeyboardButton ();
$Teapot::Bot::Object::InlineKeyboardMarkup::VERSION = '0.022'; $Teapot::Bot::Object::InlineKeyboardMarkup::VERSION = '0.023';
has 'inline_keyboard'; has 'inline_keyboard';
@@ -35,7 +35,7 @@ Teapot::Bot::Object::InlineKeyboardMarkup - The base class for Telegram 'InlineK
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'InlineKeyboardMarkup' type objects. The base class for Telegram 'InlineKeyboardMarkup' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Invoice::VERSION = '0.022'; $Teapot::Bot::Object::Invoice::VERSION = '0.023';
has 'title'; has 'title';
has 'description'; has 'description';
@@ -34,7 +34,7 @@ Teapot::Bot::Object::Invoice - The base class for Telegram 'Invoice' type object
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Invoice' type objects. The base class for Telegram 'Invoice' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Location::VERSION = '0.022'; $Teapot::Bot::Object::Location::VERSION = '0.023';
has 'longitude'; has 'longitude';
has 'latitude'; has 'latitude';
@@ -35,7 +35,7 @@ Teapot::Bot::Object::Location - The base class for Telegram message 'Location' t
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'Location' type. The base class for Telegram message 'Location' type.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::LoginUrl::VERSION = '0.022'; $Teapot::Bot::Object::LoginUrl::VERSION = '0.023';
has 'url'; has 'url';
has 'forward_text'; has 'forward_text';
@@ -33,7 +33,7 @@ Teapot::Bot::Object::LoginUrl - The base class for Telegram 'LoginUrl' type obje
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'LoginUrl' type objects. The base class for Telegram 'LoginUrl' type objects.

55
lib/Teapot/Bot/Object/MaskPosition.pm Normal file
View File

@@ -0,0 +1,55 @@
package Teapot::Bot::Object::MaskPosition;
# ABSTRACT: The base class for Telegram 'MaskPosition' type objects
use strict;
use warnings;
use 5.018; ## no critic (ProhibitImplicitImport)
use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::MaskPosition::VERSION = '0.023';
has 'point';
has 'x_shift';
has 'y_shift';
has 'scale';
sub fields {
return { scalar => [qw/point x_shift y_shift scale/] };
}
1;
__END__
=pod
=encoding utf8
=head1 NAME
Teapot::Bot::Object::MaskPosition - The base class for Telegram 'MaskPosition' type objects
=head1 VERSION
version 0.023
=head1 DESCRIPTION
The base class for Telegram 'MaskPosition' type objects.
See L<https://core.telegram.org/bots/api#MaskPosition> for details of the
attributes available for C<Teapot::Bot::Object::MaskPosition> objects.
=head1 AUTHOR
Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2022 by Sergei Fedosov <eleksir@gmail.com>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut

81
lib/Teapot/Bot/Object/Message.pm
View File

@@ -35,12 +35,12 @@ use Teapot::Bot::Object::InlineKeyboardMarkup ();
use Teapot::Bot::Object::ProximityAlertTriggered (); use Teapot::Bot::Object::ProximityAlertTriggered ();
use Teapot::Bot::Object::Dice (); use Teapot::Bot::Object::Dice ();
use Teapot::Bot::Object::MessageAutoDeleteTimerChanged (); use Teapot::Bot::Object::MessageAutoDeleteTimerChanged ();
use Teapot::Bot::Object::VoiceChatScheduled (); use Teapot::Bot::Object::VideoChatScheduled ();
use Teapot::Bot::Object::VoiceChatStarted (); use Teapot::Bot::Object::VideoChatStarted ();
use Teapot::Bot::Object::VoiceChatEnded (); use Teapot::Bot::Object::VideoChatEnded ();
use Teapot::Bot::Object::VoiceChatParticipantsInvited (); use Teapot::Bot::Object::VideoChatParticipantsInvited ();
$Teapot::Bot::Object::Message::VERSION = '0.022'; $Teapot::Bot::Object::Message::VERSION = '0.023';
# basic message stuff # basic message stuff
has 'message_id'; has 'message_id';
@@ -96,10 +96,11 @@ has 'successful_payment'; # SuccessfulPayment
has 'connected_website'; has 'connected_website';
has 'passport_data'; # PassportData has 'passport_data'; # PassportData
has 'proximity_alert_triggered'; has 'proximity_alert_triggered';
has 'voice_chat_scheduled'; # Optional. Service message: voice chat scheduled has 'video_chat_scheduled';
has 'voice_chat_started'; # Optional. Service message: voice chat started has 'video_chat_started';
has 'voice_chat_ended'; # Optional. Service message: voice chat ended has 'video_chat_ended';
has 'voice_chat_participants_invited'; # Optional. Service message: new participants invited to a voice chat has 'video_chat_participants_invited';
has 'web_app_data';
has 'reply_markup'; # Array of InlineKeyboardMarkup has 'reply_markup'; # Array of InlineKeyboardMarkup
sub fields { sub fields {
@@ -112,39 +113,40 @@ sub fields {
group_chat_created supergroup_chat_created group_chat_created supergroup_chat_created
channel_chat_created migrate_to_chat_id channel_chat_created migrate_to_chat_id
migrate_from_chat_id connected_website/], migrate_from_chat_id connected_website/],
'Teapot::Bot::Object::User' => [qw/from forward_from via_bot new_chat_members left_chat_member /], 'Teapot::Bot::Object::User' => [qw/from forward_from via_bot new_chat_members left_chat_member /],
'Teapot::Bot::Object::Chat' => [qw/sender_chat chat forward_from_chat/], 'Teapot::Bot::Object::Chat' => [qw/sender_chat chat forward_from_chat/],
'Teapot::Bot::Object::Message' => [qw/reply_to_message pinned_message/], 'Teapot::Bot::Object::Message' => [qw/reply_to_message pinned_message/],
'Teapot::Bot::Object::MessageEntity' => [qw/entities caption_entities /], 'Teapot::Bot::Object::MessageEntity' => [qw/entities caption_entities /],
'Teapot::Bot::Object::Audio' => [qw/audio/], 'Teapot::Bot::Object::Audio' => [qw/audio/],
'Teapot::Bot::Object::Document' => [qw/document/], 'Teapot::Bot::Object::Document' => [qw/document/],
'Teapot::Bot::Object::Animation' => [qw/animation/], 'Teapot::Bot::Object::Animation' => [qw/animation/],
'Teapot::Bot::Object::Game' => [qw/game/], 'Teapot::Bot::Object::Game' => [qw/game/],
'Teapot::Bot::Object::PhotoSize' => [qw/photo new_chat_photo/], 'Teapot::Bot::Object::PhotoSize' => [qw/photo new_chat_photo/],
'Teapot::Bot::Object::Sticker' => [qw/sticker/], 'Teapot::Bot::Object::Sticker' => [qw/sticker/],
'Teapot::Bot::Object::Video' => [qw/video/], 'Teapot::Bot::Object::Video' => [qw/video/],
'Teapot::Bot::Object::Voice' => [qw/voice/], 'Teapot::Bot::Object::Voice' => [qw/voice/],
'Teapot::Bot::Object::VideoNote' => [qw/video_note/], 'Teapot::Bot::Object::VideoNote' => [qw/video_note/],
'Teapot::Bot::Object::Contact' => [qw/contact/], 'Teapot::Bot::Object::Contact' => [qw/contact/],
'Teapot::Bot::Object::Location' => [qw/location/], 'Teapot::Bot::Object::Location' => [qw/location/],
'Teapot::Bot::Object::Venue' => [qw/venue/], 'Teapot::Bot::Object::Venue' => [qw/venue/],
'Teapot::Bot::Object::Poll' => [qw/poll/], 'Teapot::Bot::Object::Poll' => [qw/poll/],
'Teapot::Bot::Object::Invoice' => [qw/invoice/], 'Teapot::Bot::Object::Invoice' => [qw/invoice/],
'Teapot::Bot::Object::SuccessfulPayment' => [qw/successful_payment/], 'Teapot::Bot::Object::SuccessfulPayment' => [qw/successful_payment/],
'Teapot::Bot::Object::PassportData' => [qw/passport_data/], 'Teapot::Bot::Object::PassportData' => [qw/passport_data/],
'Teapot::Bot::Object::InlineKeyboardMarkup' => [qw/reply_markup/], 'Teapot::Bot::Object::InlineKeyboardMarkup' => [qw/reply_markup/],
'Teapot::Bot::Object::ProximityAlertTriggered' => [qw/proximity_alert_triggered/], 'Teapot::Bot::Object::ProximityAlertTriggered' => [qw/proximity_alert_triggered/],
'Teapot::Bot::Object::Dice' => [qw/dice/], 'Teapot::Bot::Object::Dice' => [qw/dice/],
'Teapot::Bot::Object::MessageAutoDeleteTimerChanged' => [qw/message_auto_delete_timer_changed/], 'Teapot::Bot::Object::MessageAutoDeleteTimerChanged' => [qw/message_auto_delete_timer_changed/],
'Teapot::Bot::Object::VoiceChatScheduled' => [qw/voice_chat_scheduled/], 'Teapot::Bot::Object::VideoChatScheduled' => [qw/voice_chat_scheduled/],
'Teapot::Bot::Object::VoiceChatStarted' => [qw/voice_chat_started/], 'Teapot::Bot::Object::VideoChatStarted' => [qw/voice_chat_started/],
'Teapot::Bot::Object::VoiceChatEnded' => [qw/voice_chat_ended/], 'Teapot::Bot::Object::VideoChatEnded' => [qw/voice_chat_ended/],
'Teapot::Bot::Object::VoiceChatParticipantsInvited' => [qw/voice_chat_participants_invited/], 'Teapot::Bot::Object::VideoChatParticipantsInvited' => [qw/voice_chat_participants_invited/],
'Teapot::Bot::Object::WebAppData' => [qw/web_app_data/],
}; };
} }
@@ -210,7 +212,7 @@ Teapot::Bot::Object::Message - The base class for the Telegram type "Message"
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for the Telegram type "Message". The base class for the Telegram type "Message".
@@ -227,6 +229,13 @@ A convenience method to reply to a message with text.
Will return the C<Teapot::Bot::Object::Message> object representing the message Will return the C<Teapot::Bot::Object::Message> object representing the message
sent. sent.
=head2 replyMd
A convenience method to reply to a message with markdown formatted text.
Will return the C<Teapot::Bot::Object::Message> object representing the message
sent.
=head2 typing =head2 typing
Sends notification to chat that bot is "typing" something. Sends notification to chat that bot is "typing" something.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::MessageAutoDeleteTimerChanged::VERSION = '0.022'; $Teapot::Bot::Object::MessageAutoDeleteTimerChanged::VERSION = '0.023';
has 'message_auto_delete_time'; has 'message_auto_delete_time';
@@ -32,7 +32,7 @@ Teapot::Bot::Object::MessageAutoDeleteTimerChanged - The base class for Telegram
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'MessageAutoDeleteTimerChanged' type objects. The base class for Telegram 'MessageAutoDeleteTimerChanged' type objects.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::User (); use Teapot::Bot::Object::User ();
$Teapot::Bot::Object::MessageEntity::VERSION = '0.022'; $Teapot::Bot::Object::MessageEntity::VERSION = '0.023';
has 'type'; has 'type';
has 'offset'; has 'offset';
@@ -39,7 +39,7 @@ Teapot::Bot::Object::MessageEntity - The base class for Telegram 'MessageEntity'
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'MessageEntity' type objects. The base class for Telegram 'MessageEntity' type objects.

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

@@ -10,7 +10,7 @@ use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::EncryptedPassportElement (); use Teapot::Bot::Object::EncryptedPassportElement ();
use Teapot::Bot::Object::EncryptedCredentials (); use Teapot::Bot::Object::EncryptedCredentials ();
$Teapot::Bot::Object::PassportData::VERSION = '0.022'; $Teapot::Bot::Object::PassportData::VERSION = '0.023';
has 'data'; # Array of EncryptedPassportElement has 'data'; # Array of EncryptedPassportElement
has 'credentials'; # EncryptedCredentials has 'credentials'; # EncryptedCredentials
@@ -40,7 +40,7 @@ Teapot::Bot::Object::PassportData - The base class for Telegram 'PassportData' t
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'PassportData' type objects. The base class for Telegram 'PassportData' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::PhotoSize::VERSION = '0.022'; $Teapot::Bot::Object::PhotoSize::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -34,7 +34,7 @@ Teapot::Bot::Object::PhotoSize - The base class for Telegram message 'PhotoSize'
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'PhotoSize' type. The base class for Telegram message 'PhotoSize' type.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PollOption (); use Teapot::Bot::Object::PollOption ();
$Teapot::Bot::Object::Poll::VERSION = '0.022'; $Teapot::Bot::Object::Poll::VERSION = '0.023';
has 'id'; has 'id';
has 'question'; has 'question';
@@ -52,7 +52,7 @@ Teapot::Bot::Object::Poll - The base class for Telegram 'Poll' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Poll' type objects The base class for Telegram 'Poll' type objects

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::PollAnswer::VERSION = '0.022'; $Teapot::Bot::Object::PollAnswer::VERSION = '0.023';
has 'poll_id'; has 'poll_id';
has 'user'; has 'user';
@@ -39,7 +39,7 @@ Teapot::Bot::Object::PollAnswer - The base class for Telegram 'PollAnswer' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'PollAnswer' type objects. The base class for Telegram 'PollAnswer' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::PollOption::VERSION = '0.022'; $Teapot::Bot::Object::PollOption::VERSION = '0.023';
has 'text'; has 'text';
has 'voter_count'; has 'voter_count';
@@ -31,7 +31,7 @@ Teapot::Bot::Object::PollOption - The base class for Telegram 'PollOption' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'PollOption' type objects. The base class for Telegram 'PollOption' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::ProximityAlertTriggered::VERSION = '0.022'; $Teapot::Bot::Object::ProximityAlertTriggered::VERSION = '0.023';
has 'traveler'; # User has 'traveler'; # User
has 'watcher'; # User has 'watcher'; # User
@@ -35,7 +35,7 @@ Teapot::Bot::Object::ProximityAlertTriggered - The base class for Telegram messa
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'ProximityAlertTriggered' type. The base class for Telegram message 'ProximityAlertTriggered' type.

13
lib/Teapot/Bot/Object/Sticker.pm
View File

@@ -8,22 +8,27 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PhotoSize (); use Teapot::Bot::Object::PhotoSize ();
use Teapot::Bot::Object::MaskPosition ();
$Teapot::Bot::Object::Sticker::VERSION = '0.022'; $Teapot::Bot::Object::Sticker::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id';
has 'width'; has 'width';
has 'height'; has 'height';
has 'is_animated';
has 'is_video';
has 'thumb'; # PhotoSize has 'thumb'; # PhotoSize
has 'emoji'; has 'emoji';
has 'set_name'; has 'set_name';
# has 'mask_position'; # XXX TODO has 'mask_position';
has 'file_size'; has 'file_size';
sub fields { sub fields {
return { return {
scalar => [ qw/file_id width height emoji set_name file_size/ ], scalar => [ qw/file_id file_unique_id width height is_animated is_video emoji set_name file_size/ ],
'Teapot::Bot::Object::PhotoSize' => [ qw/thumb/ ], 'Teapot::Bot::Object::PhotoSize' => [ qw/thumb/ ],
'Teapot::Bot::Object::MaskPosition' => [qw/mask_position/],
}; };
} }
@@ -41,7 +46,7 @@ Teapot::Bot::Object::Sticker - The base class for Telegram message 'Sticker' typ
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'Sticker' type. The base class for Telegram message 'Sticker' type.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
# use Teapot::Bot::Object::OrderInfo; # use Teapot::Bot::Object::OrderInfo;
$Teapot::Bot::Object::SuccessfulPayment::VERSION = '0.022'; $Teapot::Bot::Object::SuccessfulPayment::VERSION = '0.023';
has 'currency'; has 'currency';
has 'total_amount'; has 'total_amount';
@@ -41,7 +41,7 @@ Teapot::Bot::Object::SuccessfulPayment - The base class for Telegram 'Successful
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'SuccessfulPayment' type objects. The base class for Telegram 'SuccessfulPayment' type objects.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::User::VERSION = '0.022'; $Teapot::Bot::Object::User::VERSION = '0.023';
has 'id'; has 'id';
has 'is_bot'; has 'is_bot';
@@ -41,7 +41,7 @@ Teapot::Bot::Object::User - The base class for Telegram message 'User' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'User' type. The base class for Telegram message 'User' type.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::Location (); use Teapot::Bot::Object::Location ();
$Teapot::Bot::Object::Venue::VERSION = '0.022'; $Teapot::Bot::Object::Venue::VERSION = '0.023';
has 'location'; #Location has 'location'; #Location
has 'title'; has 'title';
@@ -41,7 +41,7 @@ Teapot::Bot::Object::Venue - The base class for Telegram 'LoginUrl' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'LoginUrl' type objects. The base class for Telegram 'LoginUrl' type objects.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PhotoSize (); use Teapot::Bot::Object::PhotoSize ();
$Teapot::Bot::Object::Video::VERSION = '0.022'; $Teapot::Bot::Object::Video::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -43,7 +43,7 @@ Teapot::Bot::Object::Video - The base class for Telegram 'Video' object
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Video' object. The base class for Telegram 'Video' object.

20
lib/Teapot/Bot/Object/VoiceChatEnded.pm → lib/Teapot/Bot/Object/VideoChatEnded.pm
View File

@@ -1,5 +1,5 @@
package Teapot::Bot::Object::VoiceChatEnded; package Teapot::Bot::Object::VideoChatEnded;
# ABSTRACT: The base class for Telegram message 'VoiceChatEnded' type. # ABSTRACT: The base class for Telegram message 'VideoChatEnded' type.
use strict; use strict;
use warnings; use warnings;
@@ -8,9 +8,9 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::VoiceChatEnded::VERSION = '0.022'; $Teapot::Bot::Object::VideoChatEnded::VERSION = '0.023';
# This object represents a service message about a voice chat started in the chat. Currently holds no information. # This object represents a service message about a Video chat started in the chat. Currently holds no information.
has 'duration'; has 'duration';
sub fields { sub fields {
@@ -27,17 +27,17 @@ __END__
=head1 NAME =head1 NAME
Teapot::Bot::Object::VoiceChatEnded - The base class for Telegram message 'VoiceChatEnded' type Teapot::Bot::Object::VideoChatEnded - The base class for Telegram message 'VideoChatEnded' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'VoiceChatEnded' type. The base class for Telegram message 'VideoChatEnded' type.
See L<https://core.telegram.org/bots/api#voicechatended> for details of the See L<https://core.telegram.org/bots/api#Videochatended> for details of the
attributes available for C<Teapot::Bot::Object::VoiceChatEnded> objects. attributes available for C<Teapot::Bot::Object::VideoChatEnded> objects.
=head1 AUTHOR =head1 AUTHOR
@@ -45,7 +45,7 @@ Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2021 by Sergei Fedosov <eleksir@gmail.com>. This software is copyright (c) 2022 by 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.

20
lib/Teapot/Bot/Object/VoiceChatParticipantsInvited.pm → lib/Teapot/Bot/Object/VideoChatParticipantsInvited.pm
View File

@@ -1,5 +1,5 @@
package Teapot::Bot::Object::VoiceChatParticipantsInvited; package Teapot::Bot::Object::VideoChatParticipantsInvited;
# ABSTRACT: The base class for Telegram message 'VoiceChatParticipantsInvited' type. # ABSTRACT: The base class for Telegram message 'VideoChatParticipantsInvited' type.
use strict; use strict;
use warnings; use warnings;
@@ -9,9 +9,9 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::User (); use Teapot::Bot::Object::User ();
$Teapot::Bot::Object::VoiceChatParticipantsInvited::VERSION = '0.022'; $Teapot::Bot::Object::VideoChatParticipantsInvited::VERSION = '0.023';
# This object represents a service message about a voice chat started in the chat. Currently holds no information. # This object represents a service message about a Video chat started in the chat. Currently holds no information.
has 'users'; has 'users';
sub fields { sub fields {
@@ -32,17 +32,17 @@ __END__
=head1 NAME =head1 NAME
Teapot::Bot::Object::VoiceChatParticipantsInvited - The base class for Telegram message 'VoiceChatParticipantsInvited' type Teapot::Bot::Object::VideoChatParticipantsInvited - The base class for Telegram message 'VideoChatParticipantsInvited' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'VoiceChatParticipantsInvited' type. The base class for Telegram message 'VideoChatParticipantsInvited' type.
See L<https://core.telegram.org/bots/api#voicechatparticipantsinvited> for details of the See L<https://core.telegram.org/bots/api#Videochatparticipantsinvited> for details of the
attributes available for C<Teapot::Bot::Object::VoiceChatParticipantsInvited> objects. attributes available for C<Teapot::Bot::Object::VideoChatParticipantsInvited> objects.
=head1 AUTHOR =head1 AUTHOR
@@ -50,7 +50,7 @@ Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2021 by Sergei Fedosov <eleksir@gmail.com>. This software is copyright (c) 2022 by 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.

18
lib/Teapot/Bot/Object/VoiceChatScheduled.pm → lib/Teapot/Bot/Object/VideoChatScheduled.pm
View File

@@ -1,4 +1,4 @@
package Teapot::Bot::Object::VoiceChatScheduled; package Teapot::Bot::Object::VideoChatScheduled;
# ABSTRACT: The base class for Telegram message 'VoiceChatEnded' type. # ABSTRACT: The base class for Telegram message 'VoiceChatEnded' type.
use strict; use strict;
@@ -8,9 +8,9 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::VoiceChatScheduled::VERSION = '0.022'; $Teapot::Bot::Object::VideoChatScheduled::VERSION = '0.023';
# This object represents a service message about a voice chat started in the chat. Currently holds no information. # This object represents a service message about a video chat started in the chat. Currently holds no information.
has 'start_date'; has 'start_date';
sub fields { sub fields {
@@ -27,17 +27,17 @@ __END__
=head1 NAME =head1 NAME
Teapot::Bot::Object::VoiceChatScheduled - The base class for Telegram message 'VoiceChatScheduled' type Teapot::Bot::Object::VideoChatScheduled - The base class for Telegram message 'VideoChatScheduled' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'VoiceChatScheduled' type. The base class for Telegram message 'VideoChatScheduled' type.
See L<https://core.telegram.org/bots/api#voicechatscheduled> for details of the See L<https://core.telegram.org/bots/api#Videochatscheduled> for details of the
attributes available for C<Teapot::Bot::Object::VoiceChatScheduled> objects. attributes available for C<Teapot::Bot::Object::VideoChatScheduled> objects.
=head1 AUTHOR =head1 AUTHOR
@@ -45,7 +45,7 @@ Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2021 by Sergei Fedosov <eleksir@gmail.com>. This software is copyright (c) 2022 by 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.

20
lib/Teapot/Bot/Object/VoiceChatStarted.pm → lib/Teapot/Bot/Object/VideoChatStarted.pm
View File

@@ -1,5 +1,5 @@
package Teapot::Bot::Object::VoiceChatStarted; package Teapot::Bot::Object::VideoChatStarted;
# ABSTRACT: The base class for Telegram message 'VoiceChatStarted' type. # ABSTRACT: The base class for Telegram message 'VideoChatStarted' type.
use strict; use strict;
use warnings; use warnings;
@@ -8,9 +8,9 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::VoiceChatStarted::VERSION = '0.022'; $Teapot::Bot::Object::VideoChatStarted::VERSION = '0.023';
# This object represents a service message about a voice chat started in the chat. Currently holds no information. # This object represents a service message about a Video chat started in the chat. Currently holds no information.
has 'stub'; has 'stub';
sub fields { sub fields {
@@ -27,17 +27,17 @@ __END__
=head1 NAME =head1 NAME
Teapot::Bot::Object::VoiceChatStarted - The base class for Telegram message 'VoiceChatStarted' type Teapot::Bot::Object::VideoChatStarted - The base class for Telegram message 'VideoChatStarted' type
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram message 'VoiceChatStarted' type. The base class for Telegram message 'VideoChatStarted' type.
See L<https://core.telegram.org/bots/api#voicechatstarted> for details of the See L<https://core.telegram.org/bots/api#Videochatstarted> for details of the
attributes available for C<Teapot::Bot::Object::VoiceChatStarted> objects. attributes available for C<Teapot::Bot::Object::VideoChatStarted> objects.
=head1 AUTHOR =head1 AUTHOR
@@ -45,7 +45,7 @@ Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT =head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2021 by Sergei Fedosov <eleksir@gmail.com>. This software is copyright (c) 2022 by 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.

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

@@ -9,7 +9,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
use Teapot::Bot::Object::PhotoSize (); use Teapot::Bot::Object::PhotoSize ();
$Teapot::Bot::Object::VideoNote::VERSION = '0.022'; $Teapot::Bot::Object::VideoNote::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -40,7 +40,7 @@ Teapot::Bot::Object::VideoNote - The base class for Telegram 'VideoNote' type ob
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'VideoNote' type object. The base class for Telegram 'VideoNote' type object.

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

@@ -8,7 +8,7 @@ use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base'; use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::Voice::VERSION = '0.022'; $Teapot::Bot::Object::Voice::VERSION = '0.023';
has 'file_id'; has 'file_id';
has 'file_unique_id'; has 'file_unique_id';
@@ -34,7 +34,7 @@ Teapot::Bot::Object::Voice - The base class for Telegram 'Voice' type objects
=head1 VERSION =head1 VERSION
version 0.022 version 0.023
=head1 DESCRIPTION =head1 DESCRIPTION
The base class for Telegram 'Voice' type objects. The base class for Telegram 'Voice' type objects.

53
lib/Teapot/Bot/Object/WebAppData.pm Normal file
View File

@@ -0,0 +1,53 @@
package Teapot::Bot::Object::WebAppData;
# ABSTRACT: The base class for Telegram 'WebAppData' type objects
use strict;
use warnings;
use 5.018; ## no critic (ProhibitImplicitImport)
use utf8;
use Mojo::Base 'Teapot::Bot::Object::Base';
$Teapot::Bot::Object::WebAppData::VERSION = '0.023';
has 'data';
has 'button_text';
sub fields {
return { scalar => [qw/data button_text/] };
}
1;
__END__
=pod
=encoding utf8
=head1 NAME
Teapot::Bot::Object::WebAppData - The base class for Telegram 'WebAppData' type objects
=head1 VERSION
version 0.023
=head1 DESCRIPTION
The base class for Telegram 'WebAppData' type objects.
See L<https://core.telegram.org/bots/api#webappdata> for details of the
attributes available for C<Teapot::Bot::Object::WebAppData> objects.
=head1 AUTHOR
Sergei Fedosov <eleksir@gmail.com>
=head1 LICENSE AND COPYRIGHT
This software is copyright (c) 2022 by Sergei Fedosov <eleksir@gmail.com>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut