Make proper use of Reaction stuff in Teapot lib
This commit is contained in:
61
lib/Teapot/Bot/Object/MessageReactionCountUpdated.pm
Normal file
61
lib/Teapot/Bot/Object/MessageReactionCountUpdated.pm
Normal file
@@ -0,0 +1,61 @@
|
||||
package Teapot::Bot::Object::MessageReactionCountUpdated;
|
||||
# ABSTRACT: The base class for Telegram message 'Reaction' type.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use 5.018; ## no critic (ProhibitImplicitImport)
|
||||
use utf8;
|
||||
|
||||
use Mojo::Base 'Teapot::Bot::Object::Base';
|
||||
|
||||
use Teapot::Bot::Object::MessageReactionCount ();
|
||||
|
||||
$Teapot::Bot::Object::MessageReactionCountUpdated::VERSION = '0.026';
|
||||
|
||||
has 'chat';
|
||||
has 'message_id';
|
||||
has 'date';
|
||||
has 'reactions';
|
||||
|
||||
sub fields {
|
||||
return {
|
||||
'Teapot::Bot::Object::Chat' => [qw/chat actor_chat/],
|
||||
'Teapot::Bot::Object::MessageReactionCount' => [qw/reactions/],
|
||||
'scalar' => [qw/message_id date/],
|
||||
};
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=pod
|
||||
|
||||
=encoding utf8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Teapot::Bot::Object::MessageReactionCountUpdated - The base class for Telegram message 'Reaction' type
|
||||
|
||||
=head1 VERSION
|
||||
|
||||
version 0.026
|
||||
|
||||
=head1 DESCRIPTION
|
||||
The base class for Telegram message 'Reaction' type.
|
||||
|
||||
See L<https://core.telegram.org/bots/api#reactiontype> for details of the
|
||||
attributes available for C<Teapot::Bot::Object::MessageReactionCountUpdated> objects.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Sergei Fedosov <eleksir@gmail.com>
|
||||
|
||||
=head1 LICENSE AND COPYRIGHT
|
||||
|
||||
This software is copyright (c) 2025 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
|
||||
Reference in New Issue
Block a user