summaryrefslogtreecommitdiff
path: root/lib/HomePanel/Driver.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/HomePanel/Driver.pm')
-rw-r--r--lib/HomePanel/Driver.pm14
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
)
);
};