line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# -*- perl -*- |
2
|
|
|
|
|
|
|
##---------------------------------------------------------------------------- |
3
|
|
|
|
|
|
|
## Net/API/Telegram/ChosenInlineResult.pm |
4
|
|
|
|
|
|
|
## Version 0.1 |
5
|
|
|
|
|
|
|
## Copyright(c) 2019 Jacques Deguest |
6
|
|
|
|
|
|
|
## Author: Jacques Deguest <jack@deguest.jp> |
7
|
|
|
|
|
|
|
## Created 2019/05/29 |
8
|
|
|
|
|
|
|
## Modified 2020/05/20 |
9
|
|
|
|
|
|
|
## All rights reserved. |
10
|
|
|
|
|
|
|
## |
11
|
|
|
|
|
|
|
## This program is free software; you can redistribute it and/or modify it |
12
|
|
|
|
|
|
|
## under the same terms as Perl itself. |
13
|
|
|
|
|
|
|
##---------------------------------------------------------------------------- |
14
|
|
|
|
|
|
|
package Net::API::Telegram::ChosenInlineResult; |
15
|
|
|
|
|
|
|
BEGIN |
16
|
|
|
|
|
|
|
{ |
17
|
1
|
|
|
1
|
|
826
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
27
|
|
18
|
1
|
|
|
1
|
|
5
|
use parent qw( Net::API::Telegram::Generic ); |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
4
|
|
19
|
1
|
|
|
1
|
|
164
|
our( $VERSION ) = '0.1'; |
20
|
|
|
|
|
|
|
}; |
21
|
|
|
|
|
|
|
|
22
|
0
|
|
|
0
|
1
|
|
sub from { return( shift->_set_get_object( 'from', 'Net::API::Telegram::User', @_ ) ); } |
23
|
|
|
|
|
|
|
|
24
|
0
|
|
|
0
|
1
|
|
sub inline_message_id { return( shift->_set_get_scalar( 'inline_message_id', @_ ) ); } |
25
|
|
|
|
|
|
|
|
26
|
0
|
|
|
0
|
1
|
|
sub location { return( shift->_set_get_object( 'location', 'Net::API::Telegram::Location', @_ ) ); } |
27
|
|
|
|
|
|
|
|
28
|
0
|
|
|
0
|
1
|
|
sub query { return( shift->_set_get_scalar( 'query', @_ ) ); } |
29
|
|
|
|
|
|
|
|
30
|
0
|
|
|
0
|
1
|
|
sub result_id { return( shift->_set_get_scalar( 'result_id', @_ ) ); } |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
1; |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
__END__ |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
=encoding utf-8 |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 NAME |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
Net::API::Telegram::ChosenInlineResult - A result of an inline query that was chosen by the user and sent to their chat partner |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
=head1 SYNOPSIS |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
my $msg = Net::API::Telegram::ChosenInlineResult->new( %data ) || |
45
|
|
|
|
|
|
|
die( Net::API::Telegram::ChosenInlineResult->error, "\n" ); |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
=head1 DESCRIPTION |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
L<Net::API::Telegram::ChosenInlineResult> is a Telegram Message Object as defined here L<https://core.telegram.org/bots/api#choseninlineresult> |
50
|
|
|
|
|
|
|
|
51
|
|
|
|
|
|
|
This module has been automatically generated from Telegram API documentation by the script scripts/telegram-doc2perl-methods.pl. |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
=head1 METHODS |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
=over 4 |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
=item B<new>( {INIT HASH REF}, %PARAMETERS ) |
58
|
|
|
|
|
|
|
|
59
|
|
|
|
|
|
|
B<new>() will create a new object for the package, pass any argument it might receive |
60
|
|
|
|
|
|
|
to the special standard routine B<init> that I<must> exist. |
61
|
|
|
|
|
|
|
Then it returns what returns B<init>(). |
62
|
|
|
|
|
|
|
|
63
|
|
|
|
|
|
|
The valid parameters are as follow. Methods available here are also parameters to the B<new> method. |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
=over 8 |
66
|
|
|
|
|
|
|
|
67
|
|
|
|
|
|
|
=item * I<verbose> |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
=item * I<debug> |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
=back |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
=item B<from>( L<Net::API::Telegram::User> ) |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
The user that chose the result |
76
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
=item B<inline_message_id>( String ) |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
Optional. Identifier of the sent inline message. Available only if there is an inline keyboard attached to the message. Will be also received in callback queries and can be used to edit the message. |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
=item B<location>( L<Net::API::Telegram::Location> ) |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
Optional. Sender location, only for bots that require user location |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
=item B<query>( String ) |
86
|
|
|
|
|
|
|
|
87
|
|
|
|
|
|
|
The query that was used to obtain the result |
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
=item B<result_id>( String ) |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
The unique identifier for the result that was chosen |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
=back |
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
=head1 COPYRIGHT |
96
|
|
|
|
|
|
|
|
97
|
|
|
|
|
|
|
Copyright (c) 2000-2019 DEGUEST Pte. Ltd. |
98
|
|
|
|
|
|
|
|
99
|
|
|
|
|
|
|
=head1 AUTHOR |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
Jacques Deguest E<lt>F<jack@deguest.jp>E<gt> |
102
|
|
|
|
|
|
|
|
103
|
|
|
|
|
|
|
=head1 SEE ALSO |
104
|
|
|
|
|
|
|
|
105
|
|
|
|
|
|
|
L<Net::API::Telegram> |
106
|
|
|
|
|
|
|
|
107
|
|
|
|
|
|
|
=head1 COPYRIGHT & LICENSE |
108
|
|
|
|
|
|
|
|
109
|
|
|
|
|
|
|
Copyright (c) 2018-2019 DEGUEST Pte. Ltd. |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
You can use, copy, modify and redistribute this package and associated |
112
|
|
|
|
|
|
|
files under the same terms as Perl itself. |
113
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=cut |
115
|
|
|
|
|
|
|
|