From 44ccda505761458d728c0e1d317c1730ca6db535 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 19 Nov 2022 21:58:56 +0100 Subject: perltidy --- lib/Travel/Status/DE/IRIS.pm | 4 ++-- lib/Travel/Status/DE/IRIS/Result.pm | 36 +++++++++++++++++------------------- 2 files changed, 19 insertions(+), 21 deletions(-) diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 43b5313..ebc0bc1 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -11,9 +11,9 @@ our $VERSION = '1.72'; use Carp qw(confess cluck); use DateTime; use DateTime::Format::Strptime; -use List::Util qw(first); +use List::Util qw(first); use List::MoreUtils qw(uniq); -use List::UtilsBy qw(uniq_by); +use List::UtilsBy qw(uniq_by); use LWP::UserAgent; use Travel::Status::DE::IRIS::Result; use XML::LibXML; diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 25abb0a..202fd6d 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -13,17 +13,17 @@ use DateTime; use DateTime::Format::Strptime; use List::Compare; use List::MoreUtils qw(none uniq lastval); -use Scalar::Util qw(weaken); +use Scalar::Util qw(weaken); our $VERSION = '1.72'; my %translation = ( - 1 => 'Nähere Informationen in Kürze', - 2 => 'Polizeieinsatz', - 3 => 'Feuerwehreinsatz auf der Strecke', - 4 => 'Kurzfristiger Personalausfall', # xlsx: missing - 5 => 'Ärztliche Versorgung eines Fahrgastes', - 6 => 'Betätigen der Notbremse', # xlsx: "Unbefugtes Ziehen der Notbremse" + 1 => 'Nähere Informationen in Kürze', + 2 => 'Polizeieinsatz', + 3 => 'Feuerwehreinsatz auf der Strecke', + 4 => 'Kurzfristiger Personalausfall', # xlsx: missing + 5 => 'Ärztliche Versorgung eines Fahrgastes', + 6 => 'Betätigen der Notbremse', # xlsx: "Unbefugtes Ziehen der Notbremse" 7 => 'Unbefugte Personen auf der Strecke', 8 => 'Notarzteinsatz auf der Strecke', 9 => 'Streikauswirkungen', @@ -40,7 +40,7 @@ my %translation = ( 20 => 'Tiere im Gleis', # xlsx: missing 21 => 'Warten auf Anschlussreisende', 22 => 'Witterungsbedingte Beeinträchtigung', - 23 => 'Feuerwehreinsatz auf Bahngelände', # xlsx: missing + 23 => 'Feuerwehreinsatz auf Bahngelände', # xlsx: missing 24 => 'Verspätung im Ausland', 25 => 'Bereitstellung weiterer Wagen', 26 => 'Abhängen von Wagen', @@ -65,12 +65,11 @@ my %translation = ( 44 => 'Warten auf einen entgegenkommenden Zug', # TODO for Oct 2021: switch 45, 46 to "Vorfahrt eines anderen Zuges" - 45 => - 'Überholung durch anderen Zug', # xlsx: "Vorfahrt eines anderen Zuges" + 45 => 'Überholung durch anderen Zug', # xlsx: "Vorfahrt eines anderen Zuges" 46 => 'Warten auf freie Einfahrt', # xlsx: "Vorfahrt eines anderen Zuges" - 47 => 'Verspätete Bereitstellung' - , # xlsx: "Verspätete Bereitstellung des Zuges" + 47 => + 'Verspätete Bereitstellung', # xlsx: "Verspätete Bereitstellung des Zuges" 48 => 'Verspätung aus vorheriger Fahrt', 49 => 'Kurzfristiger Personalausfall', 50 => 'Kurzfristige Erkrankung von Personal', @@ -79,10 +78,9 @@ my %translation = ( 53 => 'Unwetterauswirkungen', 54 => 'Verfügbarkeit der Gleise derzeit eingeschränkt', 55 => 'Defekt an einem anderen Zug', - 56 => 'Warten auf Anschlussreisende', # aus einem Bus - 57 => - 'Zusätzlicher Halt', # xslx: "Zusätzlicher Halt zum Ein- und Ausstieg" - 58 => 'Umleitung', # xlsx: "Umleitung des Zuges" + 56 => 'Warten auf Anschlussreisende', # aus einem Bus + 57 => 'Zusätzlicher Halt', # xslx: "Zusätzlicher Halt zum Ein- und Ausstieg" + 58 => 'Umleitung', # xlsx: "Umleitung des Zuges" 59 => 'Schnee und Eis', 60 => 'Witterungsbedingt verminderte Geschwindigkeit', 61 => 'Defekte Tür', @@ -111,7 +109,7 @@ my %translation = ( 85 => 'Ein Wagen fehlt', 86 => 'Gesamter Zug ohne Reservierung', 87 => 'Einzelne Wagen ohne Reservierung', - 88 => 'Keine Qualitätsmängel', # r 80 82 83 85 86 87 90 91 92 93 96 97 98 + 88 => 'Keine Qualitätsmängel', # r 80 82 83 85 86 87 90 91 92 93 96 97 98 89 => 'Reservierungen sind wieder vorhanden', # -> 86 87 90 => 'Kein gastronomisches Angebot', 91 => 'Fahrradmitnahme nicht möglich', @@ -119,8 +117,8 @@ my %translation = ( 93 => 'Behindertengerechte Einrichtung fehlt', 94 => 'Ersatzbewirtschaftung', 95 => 'Universal-WC fehlt', - 96 => 'Der Zug ist stark überbesetzt', # r 97 - 97 => 'Der Zug ist überbesetzt', # r 96 + 96 => 'Der Zug ist stark überbesetzt', # r 97 + 97 => 'Der Zug ist überbesetzt', # r 96 98 => 'Sonstige Qualitätsmängel', 99 => 'Verzögerungen im Betriebsablauf', -- cgit v1.2.3