diff options
Diffstat (limited to 'driver.pl')
-rw-r--r-- | driver.pl | 15 |
1 files changed, 9 insertions, 6 deletions
@@ -3,18 +3,21 @@ use strict; use warnings; use 5.014; use WebService::ForecastIo::Response; -use TFL::Bus; +use WebService::TFL::Bus; +use WebService::TFL::Bus::Request; use HomePanel::Render; use Path::Class; my $forecast = WebService::ForecastIo::Response->new( file($ARGV[0])->slurp(iomode=>'<:raw') ); -my $bus = TFL::Bus->new()->request(TFL::Bus::Request->new({ - StopPointName => 'Hotspur Road', - #Towards => 'Islip Manor', - ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], -})); +my $bus = WebService::TFL::Bus->new()->request( + WebService::TFL::Bus::Request->new({ + StopPointName => 'Hotspur Road', + #Towards => 'Islip Manor', + ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], + }), +); my $template = file(__FILE__)->parent->file('forecast.html.tt'); print |