tube status

1 files changed, 3 insertions, 1 deletions

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;