75 lines
1.7 KiB
Perl
75 lines
1.7 KiB
Perl
package Teapot::Bot::Object::Sticker;
|
|
# ABSTRACT: The base class for Telegram message 'Sticker' type.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.018; ## no critic (ProhibitImplicitImport)
|
|
use utf8;
|
|
|
|
use Mojo::Base 'Teapot::Bot::Object::Base';
|
|
use Teapot::Bot::Object::PhotoSize ();
|
|
use Teapot::Bot::Object::MaskPosition ();
|
|
|
|
$Teapot::Bot::Object::Sticker::VERSION = '0.026';
|
|
|
|
has 'file_id';
|
|
has 'file_unique_id';
|
|
has 'type';
|
|
has 'width';
|
|
has 'height';
|
|
has 'is_animated';
|
|
has 'is_video';
|
|
has 'thumbnail'; # PhotoSize
|
|
has 'emoji';
|
|
has 'set_name';
|
|
has 'premium_animation';
|
|
has 'mask_position';
|
|
has 'custom_emoji_id';
|
|
has 'needs_repainting';
|
|
has 'file_size';
|
|
|
|
sub fields {
|
|
return {
|
|
scalar => [ qw/file_id file_unique_id type width height is_animated is_video emoji
|
|
set_name premium_animation custom_emoji_id needs_repainting
|
|
file_size/ ],
|
|
'Teapot::Bot::Object::PhotoSize' => [ qw/thumbnail/ ],
|
|
'Teapot::Bot::Object::MaskPosition' => [qw/mask_position/],
|
|
};
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding utf8
|
|
|
|
=head1 NAME
|
|
|
|
Teapot::Bot::Object::Sticker - The base class for Telegram message 'Sticker' type
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.026
|
|
|
|
=head1 DESCRIPTION
|
|
The base class for Telegram message 'Sticker' type.
|
|
|
|
See L<https://core.telegram.org/bots/api#sticker> for details of the
|
|
attributes available for C<Teapot::Bot::Object::Sticker> objects.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Justin Hawkins <justin@eatmorecode.com>
|
|
|
|
=head1 LICENSE AND COPYRIGHT
|
|
|
|
This software is copyright (c) 2019 by Justin Hawkins.
|
|
|
|
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
|