From 9f27ebcb7f12860075b3ab4564314bac822d430a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Wed, 5 Mar 2014 18:37:35 +0100
Subject: Route/Part.pm: add {arrival,departure}_{route,station}maps accessors

---
 lib/Travel/Routing/DE/EFA/Route/Part.pm | 54 ++++++++++++++++++++++++++++++---
 1 file changed, 50 insertions(+), 4 deletions(-)

(limited to 'lib/Travel/Routing/DE/EFA')

diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm
index 2fd69d2..7ff6bac 100644
--- a/lib/Travel/Routing/DE/EFA/Route/Part.pm
+++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm
@@ -10,10 +10,10 @@ our $VERSION = '2.05';
 
 Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors(
 	qw(arrival_platform arrival_stop
-	  arrival_date arrival_time arrival_sdate arrival_stime
-	  delay departure_platform departure_stop
-	  departure_date departure_time departure_sdate departure_stime
-	  train_line train_destination
+	  arrival_date arrival_time arrival_sdate arrival_stime delay
+	  departure_platform
+	  departure_stop departure_date departure_time departure_sdate
+	  departure_stime train_line train_destination
 	  )
 );
 
@@ -25,6 +25,18 @@ sub new {
 	return bless( $ref, $obj );
 }
 
+sub arrival_routemaps {
+	my ($self) = @_;
+
+	return @{ $self->{arrival_routemaps} };
+}
+
+sub arrival_stationmaps {
+	my ($self) = @_;
+
+	return @{ $self->{arrival_stationmaps} };
+}
+
 sub arrival_stop_and_platform {
 	my ($self) = @_;
 
@@ -35,6 +47,18 @@ sub arrival_stop_and_platform {
 	return $self->arrival_stop;
 }
 
+sub departure_routemaps {
+	my ($self) = @_;
+
+	return @{ $self->{departure_routemaps} };
+}
+
+sub departure_stationmaps {
+	my ($self) = @_;
+
+	return @{ $self->{departure_stationmaps} };
+}
+
 sub departure_stop_and_platform {
 	my ($self) = @_;
 
@@ -134,6 +158,17 @@ Scheduled arrival date in DD.MM.YYYY format
 
 Scheduled arrival time in HH:MM format
 
+=item $part->arrival_routemaps
+
+List of URLs, may be empty. Each URL poinst to a transfer map for the arrival
+station, usually outlining fow to transfer from this train to the next one
+(if applicable).
+
+=item $part->arrival_stationmaps
+
+List of URLs, may be empty. Each URL points to an HTML map of the arrival
+station.
+
 =item $part->delay
 
 delay in minutes, 0 if unknown
@@ -166,6 +201,17 @@ Scheduled departure date in DD.MM.YYYY format
 
 Scheduled departure time in HH:MM format
 
+=item $part->departure_routemaps
+
+List of URLs, may be empty. Each URL points to a PDF a transfer map for the
+departure station, usually outlining fow to transfer from thep previous train
+(if applicable) to this one.
+
+=item $part->departure_stationmaps
+
+List of URLs, may be empty. Each URL poinst to an HTML map of the departure
+station.
+
 =item $part->extra
 
 Additional information about the connection.  Returns a list of
-- 
cgit v1.2.3