diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-01-22 20:40:12 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-01-22 20:40:12 +0100 |
| commit | fb5c3b4832a8077c4ddbd1c06f5e2bccaf763a50 (patch) | |
| tree | c1fe9e185b7b4b0e8dacdb96d91a3216da415843 | |
| parent | 19871c2f467d13c70f90a30ea1bde048f1aa7359 (diff) | |
JourneyAtStop: Add train, train_{short,mid,long}, maybe_{train,line}_no accessors
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm index d813f04..6fc1e55 100644 --- a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm +++ b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm @@ -9,7 +9,9 @@ use parent 'Class::Accessor'; our $VERSION = '0.01'; Travel::Status::DE::DBRIS::JourneyAtStop->mk_ro_accessors( - qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via via_last) + qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via via_last + train_short train_mid train_long train maybe_train_no maybe_line_no + ) ); sub new { @@ -21,6 +23,10 @@ sub new { my $ref = { type => $json->{verkehrmittel}{kurzText}, line => $json->{verkehrmittel}{mittelText}, + train => $json->{verkehrmittel}{name}, + train_short => $json->{verkehrmittel}{kurzText}, + train_mid => $json->{verkehrmittel}{mittelText}, + train_long => $json->{verkehrmittel}{langText}, id => $json->{journeyId}, stop_eva => $json->{bahnhofsId}, destination => $json->{terminus}, @@ -30,6 +36,9 @@ sub new { via_last => ( $json->{ueber} // [] )->[-1], }; + $ref->{maybe_train_no} = $ref->{train} =~ s{^.* ++}{}r; + $ref->{maybe_line_no} = $ref->{train_mid} =~ s{^.* ++}{}r; + bless( $ref, $obj ); if ( $json->{zeit} ) { |