From 7a8d5f3f9d4f411a2a35f3efc13d7f37667ab844 Mon Sep 17 00:00:00 2001
From: Steve Bertrand <steveb@cpan.org>
Date: Sun, 12 Mar 2023 19:24:22 -0700
Subject: [PATCH] Updated address example

---
 Changes             | 1 +
 Makefile.PL         | 2 +-
 examples/address.pl | 9 +++++++++
 3 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index 95f40ac..bb1e7bf 100644
--- a/Changes
+++ b/Changes
@@ -4,6 +4,7 @@ Revision history for Tesla-Vehicle
     - Bump prereq of Tesla::API to 1.02 for changes that isolate the API
       cache to object instances of that library
     - Add constants for geocoding API request attributes
+    - Bump prereq of Tesla::API to 1.03
 
 0.08    2022-07-18
     - Return 0 if charge_actual_current() is undef
diff --git a/Makefile.PL b/Makefile.PL
index be77f44..e6969c6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -31,7 +31,7 @@ my %WriteMakefileArgs = (
     },
     PREREQ_PM => {
         'JSON'          => 0,
-        'Tesla::API'    => '1.02',
+        'Tesla::API'    => '1.03',
     },
     dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean => { FILES => 'Tesla-Vehicle-*' },
diff --git a/examples/address.pl b/examples/address.pl
index 1c03db1..23ea5f2 100755
--- a/examples/address.pl
+++ b/examples/address.pl
@@ -22,6 +22,15 @@
 }
 
 my $gear = $car->gear;
+my $charging = $car->charging_state;
+
+say "\n";
 say "gear: $gear";
+say "charging: $charging";
+
+say "\n";
+
+say $car->latitude;
+say $car->longitude;
 
 print "\n";