Result: Add platform accessor (shortcut for stop_indicator)

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/Travel/Status/DE/URA/Result.pm b/lib/Travel/Status/DE/URA/Result.pm
index e638e89..91f2d67 100644
--- a/lib/Travel/Status/DE/URA/Result.pm
+++ b/lib/Travel/Status/DE/URA/Result.pm
@@ -46,6 +46,12 @@ sub date {
 	return $self->datetime->strftime('%d.%m.%Y');
 }
 
+sub platform {
+	my ($self) = @_;
+
+	return $self->{stop_indicator};
+}
+
 sub time {
 	my ($self) = @_;
 
@@ -188,6 +194,10 @@ The name of the line.
 
 The number of the line.
 
+=item $departure->platform
+
+Shortcut for $departure->stop_indicator, see there.
+
 =item $departure->route_interesting(I<num_stops>)
 
 If the B<results> method of Travel::Status::DE::URA(3pm) was called with