Result: Add ->type accessor (compatibility with other libs)

1 files changed, 9 insertions, 0 deletions

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