Update api with fields from v5.4 and v5.5

lib/Teapot/Bot/Brain.pm

@@ -458,6 +458,9 @@ sub sendChatAction {
   elsif ($args->{action} eq 'upload_video_note') {
     $send_args->{action} = 'upload_video_note';
   }
+  elsif ($args->{action} eq 'choose_sticker') {
+    $send_args->{action} = 'choose_sticker';
+  }
   else {
     $send_args->{action} = 'typing';
   }

lib/Teapot/Bot/Object/Chat.pm

@@ -17,6 +17,9 @@ has 'first_name';               # Optional.
 has 'last_name';                # Optional.
 has 'photo';                    # Teapot::Bot::Object::ChatPhoto. Optional. Returned only in getChat.
 has 'bio';                      # Optional. Bio of the other party in a private chat. Returned only in getChat.
+has 'has_private_forwards';     # Optional. True, if privacy settings of the other party in the private chat allows to
+                                # use tg://user?id=<user_id> links only in chats with the user.
+                                # Returned only in getChat.
 has 'description';              # Optional. Returned only in getChat.
 has 'invite_link';              # Optional. Returned only in getChat.
 has 'pinned_message';           # Teapot::Bot::Object::Message
@@ -25,6 +28,8 @@ has 'permissions';              # Teapot::Bot::Object::ChatPermissions. Optional
 has 'slow_mode_delay';          # Optional. Returned only in getChat.
 has 'message_auto_delete_time'; # Optional. The time after which all messages sent to the chat will be automatically
                                 # deleted; in seconds. Returned only in getChat.
+has 'has_protected_content';    # Optional. True, if messages from the chat can't be forwarded to other chats.
+                                # Returned only in getChat.
 has 'sticker_set_name';         # Optional. Returned only in getChat.
 has 'can_set_sticker_set';      # Optional. Returned only in getChat.
 has 'linked_chat_id';           # Optional. greater than 32 bits, smaller than 52 bits
@@ -32,8 +37,9 @@ has 'location';                 # Optional. Returned only in getChat.
 
 sub fields {
   return {
-          'scalar'                               => [qw/id type title username first_name last_name bio description
+          'scalar'                               => [qw/id type title username first_name last_name bio
-                                                        invite_link slow_mode_delay message_auto_delete_time
+                                                        has_private_forwards description invite_link slow_mode_delay
+                                                        message_auto_delete_time has_protected_content
                                                         sticker_set_name can_set_sticker_set linked_chat_id/],
           'Teapot::Bot::Object::ChatPhoto'       => [qw/photo/],
           'Teapot::Bot::Object::Message'         => [qw/pinned_message/],

lib/Teapot/Bot/Object/ChatInviteLink.pm

@@ -8,15 +8,19 @@ $Teapot::Bot::Object::ChatInviteLink::VERSION = '0.022';
 
 has 'invite_link';
 has 'creator';
+has 'creates_join_request';
 has 'is_primary';
 has 'is_revoked';
+has 'name';
 has 'expire_date';  # Optional. Point in time (Unix timestamp) when the link will expire or has been expired
 has 'member_limit'; # Optional. Maximum number of users that can be members of the chat simultaneously after joining
                     # the chat via this invite link; 1-99999
+has 'pending_join_request_count';
 
 sub fields {
   return {
-    'scalar'                    => [qw/invite_link is_primary is_revoked expire_date expire_date member_limit/],
+    'scalar'                    => [qw/invite_link creates_join_request is_primary is_revoked name expire_date
+                                       member_limit pending_join_request_count/],
     'Teapot::Bot::Object::User' => [qw/creator/],
   };
 }

lib/Teapot/Bot/Object/Message.pm

@@ -52,9 +52,11 @@ has 'forward_from_message_id';
 has 'forward_signature';
 has 'forward_sender_name';
 has 'forward_date';
+has 'is_automatic_forward';
 has 'reply_to_message'; # Message
 has 'via_bot'; # User
 has 'edit_date';
+has 'has_protected_content';
 has 'media_group_id';
 has 'author_signature';
 has 'text';
@@ -102,8 +104,8 @@ sub fields {
   return {
           'scalar'                                      => [qw/message_id date forward_from_message_id
                                                             forward_signature forward_sender_name
-                                                            forward_date edit_date media_group_id
+                                                            forward_date is_automatic_forward edit_date has_protected_content
-                                                            author_signature text caption
+                                                            media_group_id author_signature text caption
                                                             new_chat_title delete_chat_photo
                                                             group_chat_created supergroup_chat_created
                                                             channel_chat_created migrate_to_chat_id