From 62650bd8ad2bf285d3018f3dac61067f9a7866f0 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Fri, 30 Apr 2021 23:42:54 +0300
Subject: [PATCH] Update to api 5.2 changes (no payments-2.0)

---
 lib/Teapot/Bot/Brain.pm                     |  8 ++--
 lib/Teapot/Bot/Object/Message.pm            |  3 ++
 lib/Teapot/Bot/Object/VoiceChatScheduled.pm | 48 +++++++++++++++++++++
 3 files changed, 55 insertions(+), 4 deletions(-)
 create mode 100644 lib/Teapot/Bot/Object/VoiceChatScheduled.pm

diff --git a/lib/Teapot/Bot/Brain.pm b/lib/Teapot/Bot/Brain.pm
index 7ffdf00..3377fbc 100644
--- a/lib/Teapot/Bot/Brain.pm
+++ b/lib/Teapot/Bot/Brain.pm
@@ -440,11 +440,11 @@ sub sendChatAction {
   elsif ($args->{action} eq 'upload_video') {
     $send_args->{action} = 'upload_video';
   }
-  elsif ($args->{action} eq 'record_audio') {
-    $send_args->{action} = 'record_audio';
+  elsif ($args->{action} eq 'record_voice') {
+    $send_args->{action} = 'record_voice';
   }
-  elsif ($args->{action} eq 'upload_audio') {
-    $send_args->{action} = 'upload_audio';
+  elsif ($args->{action} eq 'upload_voice') {
+    $send_args->{action} = 'upload_voice';
   }
   elsif ($args->{action} eq 'upload_document') {
     $send_args->{action} = 'upload_document';
diff --git a/lib/Teapot/Bot/Object/Message.pm b/lib/Teapot/Bot/Object/Message.pm
index 0cba34a..6861c86 100644
--- a/lib/Teapot/Bot/Object/Message.pm
+++ b/lib/Teapot/Bot/Object/Message.pm
@@ -30,6 +30,7 @@ use Teapot::Bot::Object::InlineKeyboardMarkup;
 use Teapot::Bot::Object::ProximityAlertTriggered;
 use Teapot::Bot::Object::Dice;
 use Teapot::Bot::Object::MessageAutoDeleteTimerChanged;
+use Teapot::Bot::Object::VoiceChatScheduled;
 use Teapot::Bot::Object::VoiceChatStarted;
 use Teapot::Bot::Object::VoiceChatEnded;
 use Teapot::Bot::Object::VoiceChatParticipantsInvited;
@@ -91,6 +92,7 @@ has 'successful_payment'; # SuccessfulPayment
 has 'connected_website';
 has 'passport_data'; # PassportData
 has 'proximity_alert_triggered';
+has 'voice_chat_scheduled'; # Optional. Service message: voice chat scheduled
 has 'voice_chat_started'; # Optional. Service message: voice chat started
 has 'voice_chat_ended'; # Optional. Service message: voice chat ended
 has 'voice_chat_participants_invited'; # Optional. Service message: new participants invited to a voice chat
@@ -135,6 +137,7 @@ sub fields {
           'Teapot::Bot::Object::ProximityAlertTriggered' => [qw/proximity_alert_triggered/],
           'Teapot::Bot::Object::Dice'                 => [qw/dice/],
           'Teapot::Bot::Object::MessageAutoDeleteTimerChanged' => [qw/message_auto_delete_timer_changed/],
+          'Teapot::Bot::Object::VoiceChatScheduled'   => [qw/voice_chat_scheduled/],
           'Teapot::Bot::Object::VoiceChatStarted'     => [qw/voice_chat_started/],
           'Teapot::Bot::Object::VoiceChatEnded'       => [qw/voice_chat_ended/],
           'Teapot::Bot::Object::VoiceChatParticipantsInvited' => [qw/voice_chat_participants_invited/],
diff --git a/lib/Teapot/Bot/Object/VoiceChatScheduled.pm b/lib/Teapot/Bot/Object/VoiceChatScheduled.pm
new file mode 100644
index 0000000..7feffdf
--- /dev/null
+++ b/lib/Teapot/Bot/Object/VoiceChatScheduled.pm
@@ -0,0 +1,48 @@
+package Teapot::Bot::Object::VoiceChatScheduled;
+# ABSTRACT: The base class for Telegram message 'VoiceChatEnded' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+
+$Teapot::Bot::Object::VoiceChatScheduled::VERSION = '0.022';
+
+# This object represents a service message about a voice chat started in the chat. Currently holds no information.
+has 'start_date';
+
+sub fields {
+  return { scalar => [qw/start_date/] };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::VoiceChatScheduled - The base class for Telegram message 'VoiceChatScheduled' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'VoiceChatScheduled' type.
+
+See L<https://core.telegram.org/bots/api#voicechatscheduled> for details of the
+attributes available for L<Teapot::Bot::Object::VoiceChatScheduled> objects.
+
+=head1 AUTHOR
+
+Sergei Fedosov <eleksir@gmail.com>
+
+=head1 LICENSE AND COPYRIGHT
+
+This software is copyright (c) 2021 by 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