diff --git a/lib/Teapot/Bot/Brain.pm b/lib/Teapot/Bot/Brain.pm index 31bd0c8..9c0f663 100644 --- a/lib/Teapot/Bot/Brain.pm +++ b/lib/Teapot/Bot/Brain.pm @@ -90,6 +90,25 @@ sub getMe { } +sub getChatMember { + my $self = shift; + my $args = shift || {}; + + my $send_args = {}; + croak "no chat_id supplied" unless $args->{chat_id}; + croak "no user_id supplied" unless $args->{user_id}; + $send_args->{chat_id} = $args->{chat_id}; + $send_args->{user_id} = $args->{user_id}; + + my $token = $self->token || croak "no token?"; + + my $url = "https://api.telegram.org/bot${token}/getChatMember"; + my $api_response = $self->_post_request($url); + + return Teapot::Bot::Object::ChatMember->create_from_hash($api_response, $self); +} + + sub sendMessage { my $self = shift; my $args = shift || {}; @@ -389,6 +408,16 @@ L. Takes no arguments, and returns the L that represents this bot. +=head2 getChatMember + +This is the wrapper around the C API method. See +L. + +Takes chat_id, and user_id as arguments. + +Returns the L that +represents properties of Chat User. + =head2 sendMessage See L.