diff options
author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-07 21:03:34 +0100 |
---|---|---|
committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-07 21:03:34 +0100 |
commit | 6c191741e82aa908ef59f1059c72bf33d0577de1 (patch) | |
tree | 6821bb60c8c26b2edb1e21d895b972cca0052ee8 /lib/Travel/Routing/DE/EFA/Route/Part.pm | |
parent | ddec189cfeaa46d681043eaaaa8d99118f4069c9 (diff) |
parse and expose arrival delay
Diffstat (limited to 'lib/Travel/Routing/DE/EFA/Route/Part.pm')
-rw-r--r-- | lib/Travel/Routing/DE/EFA/Route/Part.pm | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm index 3c9fe2c..fb94291 100644 --- a/lib/Travel/Routing/DE/EFA/Route/Part.pm +++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm @@ -16,14 +16,15 @@ my %occupancy = ( 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 + arrival_date arrival_time arrival_sdate arrival_stime arrival_delay + delay + departure_platform departure_delay departure_stop departure_date departure_time departure_sdate departure_stime footpath_duration footpath_type occupancy train_destination train_line train_product - ) + ) ); sub new { @@ -38,6 +39,8 @@ sub new { delete $ref->{occupancy}; } + $ref->{delay} = $ref->{departure_delay}; + return bless( $ref, $obj ); } @@ -188,6 +191,10 @@ included in the calculation, "Scheduled" means it isn't. =over +=item $part->arrival_delay + +arrival delay in minutes, 0 if unknown + =item $part->arrival_stop arrival stop (city name plus station name) @@ -237,7 +244,11 @@ Returns a list of Travel::Routing::DE::EFA::Route::Message(3pm) objects. =item $part->delay -delay in minutes, 0 if unknown +alias for departure_delay + +=item $part->departure_delay + +departure delay in minutes, 0 if unknown =item $part->departure_stop |