#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;
use WebService::ForecastIo::Response;
use Path::Class;
use Data::Printer;

my $res = WebService::ForecastIo::Response->new(file($ARGV[0])->slurp);
p $res;

my $hourly_summary_spans = $res->hourly->spans_by_string('summary');

p $hourly_summary_spans;

my $hourly_temp_spans = $res->hourly->spans_by_number('temperature',1);

p $hourly_temp_spans;
