WWW::KrispyKreme::HotLight - Fetch Krispy Kreme locations near a given geolocation!
use WWW::KrispyKreme::HotLight; my $donuts = WWW::KrispyKreme::HotLight->new(where => [34.170833,-118.25]); # get array ref of all the krispy kreme locations near given geo my $stores = $donuts->locations; foreach my $store (@$stores) { # boolean value which shows if the Hot Light is on now! my $is_fresh = $store->{hotLightOn}; # store name (Burbank, Los Angeles, etc) my $store_name = $store->{title}; # geolocation of store my $geo = $store->{geoLocation}; # shortened krispy kreme link to the location page! # i.e. http://kkre.me/okjGVT my $url = $store->{url}; }
WWW::KrispyKreme::HotLight is a Perl wrapper for Krispy Kreme's location search page. This module will return an array ref of hash refs which contain info for all the Krispy Kreme stores near the given geolocation.
Creates a new WWW::KrispyKreme::HotLight object. Currently the only REQUIRED option is 'where' and only supports geo
my $donuts = WWW::KrispyKreme::HotLight->new(where => [34.170833,-118.25]);
Returns an array ref of hash refs. Each hash ref represents a store near the given geolocation. A structure will look like this:
[ { 'storeHours2' => '', 'locationId' => '993', 'hotLightOn' => '0', 'storeHours1' => '', 'phone' => '818-955-9015', 'zipcode' => '91504', 'state' => 'CA', 'city' => 'Burbank', 'geoLocation' => '34.190000,-118.330000', 'url' => 'http://kkre.me/oXMuQQ', 'title' => 'Burbank', 'address' => '1521 North Victory Place' }, { 'storeHours2' => '', 'locationId' => '985', 'hotLightOn' => '0', 'storeHours1' => '', 'phone' => '323-291-4133', 'zipcode' => '90008', 'state' => 'CA', 'city' => 'Los Angeles', 'geoLocation' => '34.010000,-118.340000', 'url' => 'http://kkre.me/pF3cuI', 'title' => 'Los Angeles', 'address' => '4034 Crenshaw Boulevard' }, { 'storeHours2' => '', 'locationId' => '4502', 'hotLightOn' => '0', 'storeHours1' => '', 'phone' => '310-393-8319', 'zipcode' => '90403', 'state' => 'CA', 'city' => 'Santa Monica', 'geoLocation' => '34.030000,-118.490000', 'url' => 'http://kkre.me/okjGVT', 'title' => 'Santa Monica', 'address' => '1231 Wilshire Boulevard' }, { 'storeHours2' => '', 'locationId' => '984', 'hotLightOn' => '0', 'storeHours1' => '', 'phone' => '310-532-5281', 'zipcode' => '90248', 'state' => 'CA', 'city' => 'Gardena', 'geoLocation' => '33.870000,-118.290000', 'url' => 'http://kkre.me/r55gEc', 'title' => 'Gardena', 'address' => '1199 W. Artesia Boulevard' }, { 'storeHours2' => '', 'locationId' => '989', 'hotLightOn' => '0', 'storeHours1' => '', 'phone' => '626-964-5044', 'zipcode' => '91748', 'state' => 'CA', 'city' => 'City of Industry', 'geoLocation' => '34.000000,-117.930000', 'url' => 'http://kkre.me/pnyzpu', 'title' => 'City Of Industry', 'address' => '1548 Azusa Avenue' } ]
Curtis Brandt <curtis@cpan.org>
Copyright 2013- Curtis Brandt
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install WWW::KrispyKreme::HotLight, copy and paste the appropriate command in to your terminal.
cpanm
cpanm WWW::KrispyKreme::HotLight
CPAN shell
perl -MCPAN -e shell install WWW::KrispyKreme::HotLight
For more information on module installation, please visit the detailed CPAN module installation guide.