diff options
Diffstat (limited to 'lib/HomePanel/Driver.pm')
-rw-r--r-- | lib/HomePanel/Driver.pm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/lib/HomePanel/Driver.pm b/lib/HomePanel/Driver.pm index f5a253d..8b6c755 100644 --- a/lib/HomePanel/Driver.pm +++ b/lib/HomePanel/Driver.pm @@ -6,7 +6,6 @@ use IO::Async::Timer::Periodic; use HomePanel::AsyncUA; use WebService::ForecastIo; use WebService::TFL::Bus; -use WebService::TFL::Bus::Request; use WebService::TFL::TubeStatus; use HomePanel::Render; use Types::Path::Tiny qw(AbsFile AbsPath); @@ -63,16 +62,7 @@ sub forecast_timer_cb { ); } -has bus_request => ( - is => 'ro', - default => sub { - WebService::TFL::Bus::Request->new({ - StopPointName => 'Hotspur Road', - #Towards => 'Islip Manor', - ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)], -}); - }, -); +has bus_stop_id => ( is => 'ro', required => 1 ); has bus_response => ( is => 'rw' ); has bus => ( is => 'lazy', @@ -94,7 +84,7 @@ sub bus_timer_cb { my ($self) = @_; $self->bus_response( $self->bus->request( - $self->bus_request + $self->bus_stop_id ) ); }; |