factored TFL client

1 files changed, 9 insertions, 6 deletions

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