From 7829dbac4efa92d443a0a002ff3c0cf439514264 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 16 Jan 2015 15:46:52 +0100 Subject: Result: Add ->type accessor (compatibility with other libs) --- lib/Travel/Status/DE/URA/Result.pm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lib/Travel/Status/DE/URA/Result.pm b/lib/Travel/Status/DE/URA/Result.pm index 2c13461..91953d5 100644 --- a/lib/Travel/Status/DE/URA/Result.pm +++ b/lib/Travel/Status/DE/URA/Result.pm @@ -52,6 +52,10 @@ sub time { return $self->datetime->strftime('%H:%M:%S'); } +sub type { + return 'Bus'; +} + sub route_timetable { my ($self) = @_; @@ -150,6 +154,11 @@ The stop ID belonging to this departure. Departure time (HH:MM:SS). +=item $departure->type + +Vehicle type for this departure. At the moment, this always returns "Bus". +This option exists for compatibility with other Travel::Status libraries. + =back =head2 INTERNAL -- cgit v1.2.3