blob: 0e25ead4c1dee7b81feca3d031a463f96d24d516 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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',
ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], })); p $res;
|