From 47d24b4cbea6d8364d0718e31cfd2fb92187b7ea Mon Sep 17 00:00:00 2001 From: dakkar Date: Mon, 27 May 2013 17:01:20 +0100 Subject: factored TFL client --- driver.pl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'driver.pl') diff --git a/driver.pl b/driver.pl index dacda01..54a04ab 100644 --- a/driver.pl +++ b/driver.pl @@ -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 -- cgit v1.2.3