1 files changed, 8 insertions, 0 deletions
diff --git a/forecast-file.pl b/forecast-file.pl
index 8dfd295..950b7e0 100644
--- a/forecast-file.pl
+++ b/forecast-file.pl
@@ -8,3 +8,11 @@ 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;