Modified output of address example

stevieb9 · Dec 19, 2022 · 7e95550 · 7e95550
1 parent 9d17025
commit 7e95550
Showing 1 changed file with 15 additions and 1 deletion.
diff --git a/examples/address.pl b/examples/address.pl
@@ -9,5 +9,19 @@
 
 my $car = Tesla::Vehicle->new(auto_wake => 1);
 
-print Dumper  $car->address;
+my $address = $car->address;
 
+print "\n";
+
+say "road: $address->{road}";
+
+for (sort keys %$address) {
+    next if $_ eq 'road';
+    next if /ISO3166/;
+    say "$_: $address->{$_}";
+}
+
+my $gear = $car->gear;
+say "gear: $gear";
+
+print "\n";