From c099b757579129a454739f6e13fc4c5fea4e062e Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
Date: Thu, 30 May 2013 08:00:41 +0100
Subject: tube status

---
 driver.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'driver.pl')

diff --git a/driver.pl b/driver.pl
index 561b253..df8e1fa 100644
--- a/driver.pl
+++ b/driver.pl
@@ -5,6 +5,7 @@ use 5.014;
 use WebService::ForecastIo::Response;
 use WebService::TFL::Bus;
 use WebService::TFL::Bus::Request;
+use WebService::TFL::TubeStatus;
 use HomePanel::Render;
 use Path::Class;
 
@@ -18,6 +19,7 @@ my $bus = WebService::TFL::Bus->new()->request(
         ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)],
     }),
 );
+my $tube = WebService::TFL::TubeStatus->new()->request();
 my $template = file(__FILE__)->parent->file('forecast.html.tt');
 
 binmode STDOUT,':utf8';
@@ -27,5 +29,5 @@ print
         template_file => $template,
         forecast => $forecast,
         bus => $bus,
-        tube => '',
+        tube => $tube,
     })->render;
-- 
cgit v1.2.3