Update Teapot::Bot to v5.1 api data types, add some debug

lib/Teapot/Bot/Object/Audio.pm

@@ -6,15 +6,18 @@ use Mojo::Base 'Teapot::Bot::Object::Base';
 $Teapot::Bot::Object::Audio::VERSION = '0.022';
 
 has 'file_id';
+has 'file_unique_id';
 has 'duration';
-has 'performer';
-has 'title';
-has 'mime_type';
-has 'file_size';
-has 'thumb'; #PhotoSize
+has 'performer'; # Optional. Performer of the audio as defined by sender or by audio tags
+has 'title';     # Optional. Title of the audio as defined by sender or by audio tags
+has 'file_name'; # Optional. Original filename as defined by sender
+has 'mime_type'; # Optional. MIME type of the file as defined by sender
+has 'file_size'; # Optional. File size
+has 'thumb';     # Optional. Thumbnail of the album cover to which the music file belongs
 
 sub fields {
-  return { scalar                           => [qw/file_id duration performer title mime_type file_size/],
+  return { scalar                           => [qw/file_id file_unique_id duration performer title file_name mime_type
+                                                   file_size/],
            'Teapot::Bot::Object::PhotoSize' => [qw/thumb/],
          };
 }

lib/Teapot/Bot/Object/Base.pm

@@ -42,6 +42,129 @@ sub _field_is_array_of_arrays {
   return;
 }
 
+sub create_from_array {
+  my $class = shift;
+  my $array = shift;
+  my $brain = shift || croak 'No brain supplied to create_from_array()';
+  my $obj   = shift || $class->new(_brain => $brain);
+
+  unless (defined $array) {
+    cluck 'Array is undef';
+    return $obj;
+  }
+
+  unless (ref ($array) eq 'ARRAY') {
+    cluck 'Not array ' . Dumper ($hash);
+    return $obj;
+  }
+
+  cluck "Dumping class: " . Dumper ($class);
+  cluck "Dumping array: " . Dumper ($array);
+ Dumping array: $VAR1 = [
+          [
+            {
+              'text' => 'Spotify',
+              'url' => 'https://open.spotify.com/track/44MxUoeZg6FXDlHMrSbVjX'
+            },
+            {
+              'text' => 'Tidal',
+              'url' => 'https://listen.tidal.com/track/159119367'
+            },
+            {
+              'url' => 'https://music.apple.com/us/album/_/1534782030?i=1534782031',
+              'text' => 'Apple'
+            }
+          ],
+          [
+            {
+              'text' => 'Deezer',
+              'url' => 'https://www.deezer.com/track/1112603372'
+            },
+            {
+              'text' => 'YouTube',
+              'url' => 'https://music.youtube.com/watch?v=KT1jJDh7ir0'
+            },
+            {
+              'url' => 'https://song.link/s/44MxUoeZg6FXDlHMrSbVjX',
+              'text' => 'eXtra'
+            }
+          ]
+        ];
+
+ Dumping array: $VAR1 = [
+          [
+            {
+              'callback_data' => 'l85882326|open.spotify.com/track/44MxUoeZg6FXDlHMrSbVjX',
+              'text' => 'Get links'
+            }
+          ]
+        ];
+
+# https://core.telegram.org/bots/api#inlinekeyboardmarkup
+# который содержит в себе тупо массив
+# Array of Array of Teapot::Bot::Object::InlineKeyboardButton
+
+# https://core.telegram.org/bots/api#userprofilephotos
+# аналогично предыдущему содержит
+# Array of Array of Teapot::Bot::Object::PhotoSize
+
+  # deal with each type of field
+  foreach my $type (keys %{ $class->fields }) {
+    my @fields_of_this_type = @{ $class->fields->{$type} };
+
+    foreach my $field (@fields_of_this_type) {
+      # ignore undefined fields (sic!)
+      next if (! defined $field);
+
+      # ignore fields for which we have no value in the hash
+      next if (! defined $hash->{$field} );
+
+      # warn "type: $type field $field\n";
+      if ($type eq 'scalar') {
+        if ($obj->_field_is_array($field)) {
+          # simple scalar array ref, so just copy it
+          my $val = $hash->{$field};
+          # deal with boolean stuff so we don't pollute our object
+          # with JSON
+          if (ref($val) eq 'JSON::PP::Boolean') {
+            $val = !!$val;
+          }
+          $obj->$field($val);
+        }
+        elsif ($obj->_field_is_array_of_arrays) {
+          croak 'Not yet implemented for scalars';
+        }
+        else {
+          my $val = $hash->{$field};
+          if (ref($val) eq 'JSON::PP::Boolean') {
+            $val = 0+$val;
+
+          }
+          $obj->$field($val);
+        }
+      }
+
+      else {
+        if ($obj->_field_is_array($field)) {
+          my @sub_array;
+          foreach my $data ( @{ $hash->{$field} } ) {
+            push @sub_array, $type->create_from_hash($data, $brain);
+          }
+          $obj->$field(\@sub_array);
+        }
+        elsif ($obj->_field_is_array_of_arrays) {
+          croak 'Not yet implemented for scalars';
+        }
+        else {
+          $obj->$field($type->create_from_hash($hash->{$field}, $brain));
+        }
+
+      }
+    }
+  }
+
+  return $obj;
+}
 
 # create an object from a hash. Needs to deal with the nested types, and
 # arrays
@@ -57,6 +180,10 @@ sub create_from_hash {
   }
 
   unless (ref ($hash) eq 'HASH') {
+    if (ref ($array) eq 'ARRAY') {
+      return create_from_array($class, $hash, $brain);
+    }
+
     cluck 'Not a hash ' . Dumper ($hash);
     return $obj;
   }

lib/Teapot/Bot/Object/ChatInviteLink.pm

@@ -0,0 +1,57 @@
+package Teapot::Bot::Object::ChatInviteLink;
+# ABSTRACT: The base class for Telegram message 'ChatInviteLink' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+use Teapot::Bot::Object::User;
+
+$Teapot::Bot::Object::ChatInviteLink::VERSION = '0.022';
+
+has 'invite_link';
+has 'creator';
+has 'is_primary';
+has 'is_revoked';
+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
+
+sub fields {
+  return {
+    'scalar'                    => [qw/invite_link is_primary is_revoked expire_date expire_date member_limit/],
+    'Teapot::Bot::Object::User' => [qw/creator/],
+  };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::ChatInviteLink - The base class for Telegram message 'ChatInviteLink' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'ChatInviteLink' type.
+
+See L<https://core.telegram.org/bots/api#chatinvitelink> for details of the
+attributes available for L<Teapot::Bot::Object::ChatInviteLink> 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

lib/Teapot/Bot/Object/ChatMember.pm

@@ -13,9 +13,14 @@ has 'custom_title';              # optional. Owner and administrators only.
 has 'is_anonymous';              # Optional. Owner and administrators only.
 
 has 'can_be_edited';             # optional. Administrators only.
+has 'can_manage_chat'            # Optional. Administrators only. True, if the administrator can access the chat event
+                                 # log, chat statistics, message statistics in channels, see channel members, see
+                                 # anonymous administrators in supergroups and ignore slow mode. Implied by any other
+                                 # administrator privilege
 has 'can_post_messages';         # optional. Administrators only.
 has 'can_edit_messages';         # optional. Administrators only.
 has 'can_delete_messages';       # optional. Administrators only.
+has 'can_manage_voice_chats'     # Optional. Administrators only. True, if the administrator can manage voice chats
 has 'can_restrict_members';      # optional. Administrators only.
 has 'can_promote_members';       # optional. Administrators only.
 has 'can_change_info';           # optional. Administrators and restricted only.
@@ -31,10 +36,11 @@ has 'until_date';                # optional. Restricted and kicked only.
 
 sub fields {
   return {
-          'scalar'                    => [qw/status custom_title is_anonymous can_be_edited can_post_messages can_edit_messages
-                                             can_delete_messages can_restrict_members can_promote_members can_change_info
-                                             can_invite_users can_pin_messages is_member can_send_messages
-                                             can_send_media_messages can_send_polls can_send_other_messages can_add_web_page_previews until_date/],
+          'scalar'                    => [qw/status custom_title is_anonymous can_be_edited can_manage_chat can_post_messages
+                                             can_edit_messages can_delete_messages can_manage_voice_chats can_restrict_members
+                                             can_promote_members can_change_info can_invite_users can_pin_messages is_member
+                                             can_send_messages can_send_media_messages can_send_polls can_send_other_messages
+                                             can_add_web_page_previews until_date/],
           'Teapot::Bot::Object::User' => [qw/user/],
         };
 }

lib/Teapot/Bot/Object/ChatMemberUpdated.pm

@@ -0,0 +1,63 @@
+package Teapot::Bot::Object::ChatMemberUpdated;
+# ABSTRACT: The base class for Telegram 'ChatMemberUpdated' type objects
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+use Teapot::Bot::Object::Chat;
+use Teapot::Bot::Object::User;
+use Teapot::Bot::Object::ChatMember;
+use Teapot::Bot::Object::ChatInviteLink;
+
+$Teapot::Bot::Object::ChatMemberUpdated::VERSION = '0.022';
+
+has 'chat';
+has 'from';
+has 'date';
+has 'old_chat_member';
+has 'new_chat_member';
+has 'invite_link';     # Optional. Chat invite link, which was used by the user to join the chat; for joining by
+                       # invite link events only.
+
+sub fields {
+  return {
+          'Teapot::Bot::Object::Chat'           => [qw/chat/],
+          'Teapot::Bot::Object::User'           => [qw/from/],
+          'scalar'                              => [qw/date/],
+          'Teapot::Bot::Object::ChatMember'     => [qw/old_chat_member new_chat_member/],
+          'Teapot::Bot::Object::ChatInviteLink' => [qw/invite_link/]
+        };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::ChatMemberUpdated - The base class for Telegram 'ChatMemberUpdated' type objects
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram 'ChatMemberUpdated' type objects.
+
+See L<https://core.telegram.org/bots/api#chatmemberupdated> for details of the
+attributes available for L<Teapot::Bot::Object::ChatMemberUpdated> 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

lib/Teapot/Bot/Object/Message.pm

@@ -29,6 +29,10 @@ use Teapot::Bot::Object::PassportData;
 use Teapot::Bot::Object::InlineKeyboardMarkup;
 use Teapot::Bot::Object::ProximityAlertTriggered;
 use Teapot::Bot::Object::Dice;
+use Teapot::Bot::Object::MessageAutoDeleteTimerChanged;
+use Teapot::Bot::Object::VoiceChatStarted;
+use Teapot::Bot::Object::VoiceChatEnded;
+use Teapot::Bot::Object::VoiceChatParticipantsInvited;
 
 use Data::Dumper;
 use Carp qw(cluck);
@@ -78,6 +82,7 @@ has 'delete_chat_photo';
 has 'group_chat_created';
 has 'supergroup_chat_created';
 has 'channel_chat_created';
+has 'message_auto_delete_timer_changed'; # Optional. Service message: auto-delete timer settings changed in the chat
 has 'migrate_to_chat_id';
 has 'migrate_from_chat_id';
 has 'pinned_message'; # Message
@@ -86,6 +91,9 @@ has 'successful_payment'; # SuccessfulPayment
 has 'connected_website';
 has 'passport_data'; # PassportData
 has 'proximity_alert_triggered';
+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
 has 'reply_markup'; # Array of InlineKeyboardMarkup
 
 sub fields {
@@ -126,6 +134,10 @@ sub fields {
           'Teapot::Bot::Object::InlineKeyboardMarkup' => [qw/reply_markup/],
           '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::VoiceChatStarted'     => [qw/voice_chat_started/],
+          'Teapot::Bot::Object::VoiceChatEnded'       => [qw/voice_chat_ended/],
+          'Teapot::Bot::Object::VoiceChatParticipantsInvited' => [qw/voice_chat_participants_invited/],
   };
 }
 

lib/Teapot/Bot/Object/MessageAutoDeleteTimerChanged.pm

@@ -0,0 +1,49 @@
+package Teapot::Bot::Object::MessageAutoDeleteTimerChanged;
+# ABSTRACT: The base class for Telegram 'MessageAutoDeleteTimerChanged' type objects
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+
+$Teapot::Bot::Object::MessageAutoDeleteTimerChanged::VERSION = '0.022';
+
+has 'message_auto_delete_time';
+
+sub fields {
+  return {
+           'scalar'                    => [qw/message_auto_delete_time/],
+         };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::MessageAutoDeleteTimerChanged - The base class for Telegram 'MessageAutoDeleteTimerChanged' type objects
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram 'MessageAutoDeleteTimerChanged' type objects.
+
+See L<https://core.telegram.org/bots/api#messageautodeletetimerchanged> for details of the
+attributes available for L<Teapot::Bot::Object::MessageAutoDeleteTimerChanged> 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

lib/Teapot/Bot/Object/Video.pm

@@ -7,16 +7,19 @@ use Teapot::Bot::Object::PhotoSize;
 $Teapot::Bot::Object::Video::VERSION = '0.022';
 
 has 'file_id';
+has 'file_unique_id';
 has 'width';
 has 'height';
 has 'duration';
-has 'thumb'; #PhotoSize
-has 'mime_type';
-has 'file_size';
+has 'thumb';     # Optional. Video thumbnail
+has 'file_name'; # Optional. Original filename as defined by sender
+has 'mime_type'; # Optional. Mime type of a file as defined by sender
+has 'file_size'; # Optional. File size
 
 sub fields {
   return {
-           scalar                           => [qw/file_id width height duration mime_type file_size/],
+           scalar                           => [qw/file_id file_unique_id width height duration file_name mime_type
+                                                   file_size/],
            'Teapot::Bot::Object::PhotoSize' => [qw/thumb/]
          };
 }

lib/Teapot/Bot/Object/VoiceChatEnded.pm

@@ -0,0 +1,48 @@
+package Teapot::Bot::Object::VoiceChatEnded;
+# ABSTRACT: The base class for Telegram message 'VoiceChatEnded' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+
+$Teapot::Bot::Object::VoiceChatEnded::VERSION = '0.022';
+
+# This object represents a service message about a voice chat started in the chat. Currently holds no information.
+has 'duartion';
+
+sub fields {
+  return { scalar => [qw/duration/] };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::VoiceChatEnded - The base class for Telegram message 'VoiceChatEnded' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'VoiceChatEnded' type.
+
+See L<https://core.telegram.org/bots/api#voicechatended> for details of the
+attributes available for L<Teapot::Bot::Object::VoiceChatEnded> 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

lib/Teapot/Bot/Object/VoiceChatParticipantsInvited.pm

@@ -0,0 +1,53 @@
+package Teapot::Bot::Object::VoiceChatParticipantsInvited;
+# ABSTRACT: The base class for Telegram message 'VoiceChatParticipantsInvited' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+use Teapot::Bot::Object::User;
+
+$Teapot::Bot::Object::VoiceChatParticipantsInvited::VERSION = '0.022';
+
+# This object represents a service message about a voice chat started in the chat. Currently holds no information.
+has 'users';
+
+sub fields {
+  return { 'Teapot::Bot::Object::User' => [qw/users/] };
+}
+
+sub arrays {
+  return qw/users/;
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::VoiceChatParticipantsInvited - The base class for Telegram message 'VoiceChatParticipantsInvited' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'VoiceChatParticipantsInvited' type.
+
+See L<https://core.telegram.org/bots/api#voicechatparticipantsinvited> for details of the
+attributes available for L<Teapot::Bot::Object::VoiceChatParticipantsInvited> 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

lib/Teapot/Bot/Object/VoiceChatStarted.pm

@@ -0,0 +1,48 @@
+package Teapot::Bot::Object::VoiceChatStarted;
+# ABSTRACT: The base class for Telegram message 'VoiceChatStarted' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+
+$Teapot::Bot::Object::VoiceChatStarted::VERSION = '0.022';
+
+# This object represents a service message about a voice chat started in the chat. Currently holds no information.
+has 'stub';
+
+sub fields {
+  return { scalar => [qw/stub/] };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::VoiceChatStarted - The base class for Telegram message 'VoiceChatStarted' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'VoiceChatStarted' type.
+
+See L<https://core.telegram.org/bots/api#voicechatstarted> for details of the
+attributes available for L<Teapot::Bot::Object::VoiceChatStarted> 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