From 26deb42e6fca8206c437eb3223429ac0fec84fc2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 23 May 2011 15:10:24 +0200
Subject: More descriptive accessor names in Net::Travel::DE::VRR::Route::Part

---
 lib/Net/Travel/DE/VRR.pm | 43 +++++++++----------------------------------
 1 file changed, 9 insertions(+), 34 deletions(-)

(limited to 'lib/Net/Travel/DE/VRR.pm')

diff --git a/lib/Net/Travel/DE/VRR.pm b/lib/Net/Travel/DE/VRR.pm
index 7948194..8f1b506 100644
--- a/lib/Net/Travel/DE/VRR.pm
+++ b/lib/Net/Travel/DE/VRR.pm
@@ -360,16 +360,16 @@ sub parse_pretty {
 			push( @{ $hash->{extra} }, $extra );
 		}
 
-		$hash->{dep_time} = $con->[0];
+		$hash->{departure_time} = $con->[0];
 
 		# always "ab"           $con->[1];
-		$hash->{dep_stop}   = $con->[2];
-		$hash->{train_line} = $con->[3];
-		$hash->{arr_time}   = $con->[4];
+		$hash->{departure_stop} = $con->[2];
+		$hash->{train_line}     = $con->[3];
+		$hash->{arrival_time}   = $con->[4];
 
-		# always "an"           $con->[5];
-		$hash->{arr_stop}   = $con->[6];
-		$hash->{train_dest} = $con->[7];
+		# always "an"                $con->[5];
+		$hash->{arrival_stop}      = $con->[6];
+		$hash->{train_destination} = $con->[7];
 
 		push( @elements, $hash );
 	}
@@ -605,33 +605,8 @@ returns a true value on success.
 
 =item $efa->routes()
 
-Returns an array of connection elements. Each connection element is an
-arrayref of connection part, and each connecton part is a hash containing the
-following elements:
-
-=over
-
-=item * dep_time
-
-Departure time as a string in HH:MM format
-
-=item * dep_stop
-
-Departure stop, e.g. "Essen HBf"
-
-=item * train_line
-
-Name of the train line, e.g. "S-Bahn S6"
-
-=item * arr_time
-
-Arrival time as a string in HH:MM format
-
-=item * arr_stop
-
-Arrival stop, e.g. "Berlin HBf"
-
-=back
+Returns a list of Net::Travel::DE::VRR::Route(3pm) elements. Each one contains
+one method of getting from start to stop.
 
 =back
 
-- 
cgit v1.2.3