From c8d2e1297dcd160dae4451e53889d920e8fb9804 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 22 Sep 2024 18:59:54 +0200 Subject: add -j / --with-jid option --- lib/Travel/Status/DE/EFA.pm | 3 +++ lib/Travel/Status/DE/EFA/Departure.pm | 16 +++++++++------- 2 files changed, 12 insertions(+), 7 deletions(-) (limited to 'lib/Travel') diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index 1c3bcfc..e2d7e18 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -510,6 +510,9 @@ sub parse_departure { platform => $departure->{platform}, platform_name => $departure->{platformName}, platform_type => $departure->{pointType}, + key => $departure->{servingLine}{key}, + stateless => $departure->{servingLine}{stateless}, + stop_id => $departure->{stopID}, line => $departure->{servingLine}{symbol}, train_type => $departure->{servingLine}{trainType}, train_name => $departure->{servingLine}{trainName}, diff --git a/lib/Travel/Status/DE/EFA/Departure.pm b/lib/Travel/Status/DE/EFA/Departure.pm index 802f84e..7f10e53 100644 --- a/lib/Travel/Status/DE/EFA/Departure.pm +++ b/lib/Travel/Status/DE/EFA/Departure.pm @@ -9,9 +9,9 @@ use parent 'Class::Accessor'; our $VERSION = '2.02'; Travel::Status::DE::EFA::Departure->mk_ro_accessors( - qw(countdown datetime delay destination is_cancelled key line lineref - mot occupancy operator origin platform platform_db platform_name - rt_datetime sched_datetime train_type train_name train_no type) + qw(countdown datetime delay destination is_cancelled key line lineref mot + occupancy operator origin platform platform_db platform_name rt_datetime + sched_datetime stateless stop_id train_type train_name train_no type) ); my @mot_mapping = qw{ @@ -189,10 +189,8 @@ may be recent news related to the line's schedule. =item $departure->key -Unknown. Unlike the name may suggest, this is not a unique key / UUID for a -departure: On the same day, different lines departing at the same station -may have the same key. It might, however, be unique when combined with the -B information. +Key of this departure of the corresponding line. Unique for a given day when +combined with B. =item $departure->line @@ -262,6 +260,10 @@ realtime data. Undef if unknown / unavailable. DateTime(3pm) object holding the scheduled departure date and time. +=item $departure->stateless + +Unique line identifier. + =item $departure->train_type Train type, e.g. "ICE". Typically only defined for long-distance trains. -- cgit v1.2.3