File Coverage

blib/lib/WWW/KrispyKreme/HotLight.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	23	24	95.8

package WWW::KrispyKreme::HotLight;

use Mojo::Base -base;
use Mojo::UserAgent;
use Mojo::JSON ();

our $VERSION = '1.0';

has 'where';

has locations => \&_build_locations;

sub _build_locations {
    my ($self) = @_;
    my $geo = $self->where or return [];

    my $search = {
        Where => {
            LocationTypes => ['Store', 'Commissary', 'Franchise'],
            OpeningDate => {ComparisonType => 0}
        },
        # This is important. Otherwise we receive ALL locations.
        Take => {Min => 3, DistanceRadius => 100},
        PropertyFilters =>
          {Attributes => ['FoursquareVenueId', 'OpeningType']},
    };

    my $ua           = Mojo::UserAgent->new;
    my $hotlight_url = 'http://services.krispykreme.com/api/locationsearchresult/';
    my $header       = {'Referer' => 'http://www.krispykreme.com/Locate/Location-Search'};
    my $form = {
        lat          => $geo->[0],
        lng          => $geo->[1],
        responseType => 'Full',
        search => Mojo::JSON::encode_json($search),
    };

    my $json = $ua->get(
        $hotlight_url => $header => form => $form,
    )->res->json;

    [map $_->{Location}, @$json];
}

1;
__END__