From a62c66c5c4a9d55ab04444efeb3d389461774e76 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 13 May 2013 22:07:59 +0100
Subject: Bus API module

---
 bus.pl | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'bus.pl')

diff --git a/bus.pl b/bus.pl
index ba82c4b..0e25ead 100644
--- a/bus.pl
+++ b/bus.pl
@@ -2,16 +2,15 @@
 use strict;
 use warnings;
 use 5.014;
-use LWP::Simple;
-use URI;
-use URI::QueryParam;
+use TFL::Bus;
+use Data::Printer;
 
-my $base = URI->new('http://countdown.api.tfl.gov.uk/interfaces/ura/instant_V1');
+my $bus = TFL::Bus->new();
 
-$base->query_form({
+my $res = $bus->request(TFL::Bus::Request->new({
     StopPointName => 'Hotspur Road',
     #Towards => 'Islip Manor',
-    ReturnList => 'StopID,StopCode1,VisitNumber,TripID,VehicleID,LineID,LineName,DirectionID,DestinationText,DestinationName,EstimatedTime',
-});
+    ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)],
+}));
 
-say get($base);
+p $res;
-- 
cgit v1.2.3