diff options
Diffstat (limited to 'driver.pl')
-rw-r--r-- | driver.pl | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; |