a480786afa
* Fix typos in Brain.pm * Fix typos in User.pm * Implement typing methods in Message object and make use of it * Fix incorrect syntax of unless loops in telegrambot.pm * Add Log::Any as it required by Teapot::Bot * Do not use --update in bootstrap.sh * Add data/lat to .gitignore * Load ChatMember and ChatPermissions in Message object, so we can use 'em and avoid crash * Supply missing $send_args to _post_request
58 lines
1.3 KiB
Perl
58 lines
1.3 KiB
Perl
package Teapot::Bot::Object::User;
|
|
# ABSTRACT: The base class for Telegram message 'User' type.
|
|
|
|
|
|
use Mojo::Base 'Teapot::Bot::Object::Base';
|
|
|
|
$Teapot::Bot::Object::User::VERSION = '0.021';
|
|
|
|
has 'id';
|
|
has 'is_bot';
|
|
has 'first_name';
|
|
has 'last_name'; # optional
|
|
has 'username'; # optional
|
|
has 'language_code'; # optional
|
|
has 'can_join_groups'; # optional, only for getMe() method
|
|
has 'can_read_all_group_messages';# optional, only for getMe() method
|
|
has 'supports_inline_queries'; # optional, only for getMe() method
|
|
|
|
sub fields {
|
|
return { scalar => [qw/id is_bot first_name last_name username language_code can_join_groups
|
|
can_read_all_group_messages supports_inline_queries/]
|
|
};
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
Teapot::Bot::Object::User - The base class for Telegram message 'User' type.
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.021
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
See L<https://core.telegram.org/bots/api#user> for details of the
|
|
attributes available for L<Teapot::Bot::Object::User> objects.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Justin Hawkins <justin@eatmorecode.com>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
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
|