diff options
author | Daniel Friesel <derf@finalrewind.org> | 2014-03-05 18:37:35 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2014-03-05 18:37:35 +0100 |
commit | 9f27ebcb7f12860075b3ab4564314bac822d430a (patch) | |
tree | c8e7fed5c727f763caa4da3e83fc372c5f77c0e6 /lib/Travel/Routing/DE/EFA/Route/Part.pm | |
parent | 50aa308da358a6944d07a87431ea0855c5938674 (diff) |
Route/Part.pm: add {arrival,departure}_{route,station}maps accessors
Diffstat (limited to 'lib/Travel/Routing/DE/EFA/Route/Part.pm')
-rw-r--r-- | lib/Travel/Routing/DE/EFA/Route/Part.pm | 54 |
1 files changed, 50 insertions, 4 deletions
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 |