WebService::Whistle::Pet::Tracker::API - Perl interface to access the Whistle Pet Tracker Web Service
use WebService::Whistle::Pet::Tracker::API;
my $ws = WebService::Whistle::Pet::Tracker::API->new(email=>$email, password=>$password);
my $pets = $ws->pets; #isa ARRAY of HASHes
foreach my $pet (@$pets) {
print JSON::XS->new->pretty->encode($pet);
}
Perl interface to access the Whistle Pet Tracker Web Service. All methods return JSON payloads that are converted to Perl data structures. Methods that require authentication will request a token and cache it for the duration of the object.
my $ws = WebService::Whistle::Pet::Tracker::API->new(email=>$email, password=>$password);
Sets and returns the registered Whistle account email
Sets and returns the registered Whistle account password
Returns a list of pets as an array reference
my $pets = $ws->pets;
Returns device data for the given device id as a hash reference
my $device = $ws->device('WXX-ABC123');
my $battery_level = $device->{'battery_level'}; #0-100 charge level
Returns a list of dailies for the given pet id as an array reference
my $pet_dailies = $ws->pet_dailies($pet_id);
Returns a list of the daily items for the given pet id and day number as an array reference
my $day_number = int(time/24/60/60) - 1; #yesterday
my $pet_daily_items = $ws->pet_daily_items($pet_id, $day_number);
Returns pet stats for the given pet id as a hash reference
my $pet_stats = $ws->pet_stats(123456789);
Returns registered places as an array reference
my $places = $ws->places;
Returns the decoded JSON data from the given web service end point
my $data = $ws->api('/end_point');
Calls the login service, caches, and returns the response as a hash reference.
Retrieves the authentication JWT token from the login end point
Returns an HTTP::Tiny web client user agent
- Python - https://github.com/RobertD502/whistleaio
- NodeJS (old api) - https://github.com/martzcodes/node-whistle
Michael R. Davis
MIT License
Copyright (c) 2023 Michael R. Davis