Result->route_timetable: Return a list

1 files changed, 9 insertions, 3 deletions

diff --git a/lib/Travel/Status/DE/URA/Result.pm b/lib/Travel/Status/DE/URA/Result.pm
index f8eddcd..938cba2 100644
--- a/lib/Travel/Status/DE/URA/Result.pm
+++ b/lib/Travel/Status/DE/URA/Result.pm
@@ -10,7 +10,7 @@ our $VERSION = '0.00';
 
 Travel::Status::DE::URA::Result->mk_ro_accessors(
 	qw(countdown countdown_sec date datetime destination line line_id
-	  route_timetable stop stop_id time)
+	  stop stop_id time)
 );
 
 sub new {
@@ -21,6 +21,12 @@ sub new {
 	return bless( $ref, $obj );
 }
 
+sub route_timetable {
+	my ($self) = @_;
+
+	return @{ $self->{route_timetable} };
+}
+
 sub TO_JSON {
 	my ($self) = @_;
 
@@ -96,10 +102,10 @@ The number of the line.
 
 If the B<results> method of Travel::Status::DE::URA(3pm) was called with
 B<full_routes> => true:
-Returns an arrayref of arrayrefs describing the entire route. I.e.
+Returns a list of arrayrefs describing the entire route. I.e.
 C<< [[$time1, $stop1], [$time2, $stop2], ...] >>.
 The times are DateTime::Duration(3pm) objects, the stops are only names,
-not IDs (subject to change).  Returns an empty arrayref otherwise.
+not IDs (subject to change).  Returns an empty list otherwise.
 
 =item $departure->stop