diff options
Diffstat (limited to 'bus.pl')
-rw-r--r-- | bus.pl | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -1,16 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use 5.014; -use TFL::Bus; -use Data::Printer; - -my $bus = TFL::Bus->new(); - -my $res = $bus->request(TFL::Bus::Request->new({ - StopPointName => 'Hotspur Road', - #Towards => 'Islip Manor', - ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], -})); - -p $res; |