From 59e8fa525aa8b64af95c51a33059db334c82364c Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Tue, 22 Dec 2020 00:45:39 +0300
Subject: [PATCH] Add ChatLocation object

---
 lib/Teapot/Bot/Object/ChatLocation.pm | 51 +++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 lib/Teapot/Bot/Object/ChatLocation.pm

diff --git a/lib/Teapot/Bot/Object/ChatLocation.pm b/lib/Teapot/Bot/Object/ChatLocation.pm
new file mode 100644
index 0000000..dab079c
--- /dev/null
+++ b/lib/Teapot/Bot/Object/ChatLocation.pm
@@ -0,0 +1,51 @@
+package Teapot::Bot::Object::ChatLocation;
+# ABSTRACT: The base class for Telegram message 'ChatLocation' type.
+
+use Mojo::Base 'Teapot::Bot::Object::Base';
+
+$Teapot::Bot::Object::ChatLocation::VERSION = '0.022';
+
+has 'location';
+has 'address';
+
+sub fields {
+  return {
+    'Teapot::Bot::Object::Location' => [qw/location/],
+    'scalar'                        => [qw/address/],
+  };
+}
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Teapot::Bot::Object::ChatLocation - The base class for Telegram message 'ChatLocation' type
+
+=head1 VERSION
+
+version 0.022
+
+=head1 DESCRIPTION
+The base class for Telegram message 'ChatLocation' type.
+
+See L<https://core.telegram.org/bots/api#chatlocation> for details of the
+attributes available for L<Teapot::Bot::Object::ChatLocation> objects.
+
+=head1 AUTHOR
+
+Sergei Fedosov <eleksir@gmail.com>
+
+=head1 LICENSE AND COPYRIGHT
+
+This software is copyright (c) 2019 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