From ca37cdd0009298b677ffbc356741098d609c474d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 2 Sep 2011 19:23:56 +0200
Subject: DeutscheBahn/Result.pm: Add route_timetable accessor

---
 lib/Travel/Status/DE/DeutscheBahn/Result.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'lib/Travel/Status/DE/DeutscheBahn/Result.pm')

diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
index 1ed2527..1d05fe9 100644
--- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm
@@ -62,7 +62,8 @@ sub origin {
 sub route {
 	my ($self) = @_;
 
-	return @{ $self->{route} };
+	my @stops = map { $_->[1] } @{ $self->{route} };
+	return @stops;
 }
 
 sub route_interesting {
@@ -115,6 +116,12 @@ sub route_interesting {
 
 }
 
+sub route_timetable {
+	my ($self) = @_;
+
+	return @{ $self->{route} };
+}
+
 1;
 
 __END__
@@ -217,6 +224,11 @@ Returns the raw string used to create the route array.
 Note that canceled stops are filtered from B<route>, but still present in
 B<route_raw>.
 
+=item $result->route_timetable
+
+Similar to B<route>.  however, this function returns a list of array
+references of the form C<< [ arrival time, station name ] >>.
+
 =item $result->time
 
 Returns the arrival/departure time as string in "hh:mm" format.
-- 
cgit v1.2.3