From bf9072da14d1ee8aa0640c250b7051426665c50b Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 17 May 2013 20:47:26 +0100
Subject: data spans

---
 forecast-file.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'forecast-file.pl')

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;
-- 
cgit v1.2.3