diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-01 20:14:46 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2025-02-01 20:14:46 +0100 |
| commit | f1ca0ba41421f4e602312b4a3ea6ee8ad13366f1 (patch) | |
| tree | 367e5fa7952e711866720bad8f814a15683725d7 /lib | |
| parent | db9c1bf21b197166ecc7f55ffa63a8f9612254cb (diff) | |
Switch from DBWagenreihung to DBRIS::Formation
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/DBInfoscreen/Controller/Stationboard.pm | 6 | ||||
| -rw-r--r-- | lib/DBInfoscreen/Controller/Wagenreihung.pm | 9 |
2 files changed, 7 insertions, 8 deletions
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm index c5d27ab..1bdb00c 100644 --- a/lib/DBInfoscreen/Controller/Stationboard.pm +++ b/lib/DBInfoscreen/Controller/Stationboard.pm @@ -16,7 +16,7 @@ use List::MoreUtils qw(); use Mojo::JSON qw(decode_json encode_json); use Mojo::Promise; use Mojo::UserAgent; -use Travel::Status::DE::DBWagenreihung; +use Travel::Status::DE::DBRIS::Formation; use Travel::Status::DE::EFA; use Travel::Status::DE::HAFAS; use Travel::Status::DE::IRIS; @@ -793,8 +793,8 @@ sub render_train { my ( $wr_json, $wr_param ) = @_; eval { my $wr - = Travel::Status::DE::DBWagenreihung->new( - from_json => $wr_json ); + = Travel::Status::DE::DBRIS::Formation->new( + json => $wr_json ); $departure->{wr} = $wr; $departure->{wr_link} = join( '&', map { $_ . '=' . $wr_param->{$_} } keys %{$wr_param} ); diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm index a4a0ddc..b9f0ee3 100644 --- a/lib/DBInfoscreen/Controller/Wagenreihung.pm +++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm @@ -10,7 +10,7 @@ use Mojo::Util qw(b64_encode b64_decode); use utf8; -use Travel::Status::DE::DBWagenreihung; +use Travel::Status::DE::DBRIS::Formation; sub handle_wagenreihung_error { my ( $self, $train, $err ) = @_; @@ -43,8 +43,7 @@ sub wagenreihung { my $wr; eval { $wr - = Travel::Status::DE::DBWagenreihung->new( - from_json => $json ); + = Travel::Status::DE::DBRIS::Formation->new( json => $json ); }; if ($@) { $self->handle_wagenreihung_error( $train, scalar $@ ); @@ -176,7 +175,7 @@ sub wagenreihung { ts => $json->{ts}, ); } - )->catch( + )->catch( sub { my ($err) = @_; @@ -184,7 +183,7 @@ sub wagenreihung { $err // "Unbekannter Fehler" ); return; } - )->wait; + )->wait; } |