File Coverage

blib/lib/WWW/KrispyKreme/HotLight.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	4	50.0
condition	2	6	33.3
subroutine	3	3	100.0
pod			n/a
total	24	30	80.0

package WWW::KrispyKreme::HotLight;

use Mojo::Base -base;
use Mojo::UserAgent;

our $VERSION = '0.06';

has 'where';

has locations => \&_build_locations;

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

    my $ua           = Mojo::UserAgent->new;
    my $base_url     = 'http://locations.krispykreme.com/Store-Locator/';
    my $hotlight_url = 'http://locations.krispykreme.com/Hotlight/HotLightStatus.ashx';
    my $header       = {'X-Requested-With' => 'XMLHttpRequest'};
    my $form         = {lat => $geo->[0], lng => $geo->[1]};

    my $locations = join ',',
      $ua->get($base_url => $header => form => $form)
      ->res->dom->find('.content-results')->attr('id')->each;

    my $json = $locations && $ua->post(
        $hotlight_url => {%$header, Referer => $base_url}
          => form => {locations => $locations}
    )->res->json;

    return $json && $json->{status} eq 'success'
      ? [@{$json->{data}{locations}}]
      : [];
}

1;
__END__