#!/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;
