From c31dd4e994aadda148b45788513a80e53ad467a3 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 11 Jun 2019 19:37:35 +0200 Subject: add comment for code 14; perltidy --- lib/Travel/Status/DE/IRIS/Result.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'lib/Travel/Status') diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index e576109..d5b1d73 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -30,7 +30,9 @@ my %translation = ( 11 => 'Unwetter', 12 => 'Warten auf Fahrgäste aus einem Schiff', 13 => 'Pass- und Zollkontrolle', - 14 => 'Technische Störung am Bahnhof', + + # https://twitter.com/gleis3a/status/1138174888726925312 + 14 => 'Technische Störung am Bahnhof', 15 => 'Beeinträchtigung durch Vandalismus', 16 => 'Entschärfung einer Fliegerbombe', 17 => 'Beschädigung einer Brücke', @@ -281,7 +283,7 @@ sub set_ar { } if ( $attrib{route_pre} ) { - $self->{route_pre} = [ split( qr{[|]}, $attrib{route_pre} // q{} ) ]; + $self->{route_pre} = [ split( qr{[|]}, $attrib{route_pre} // q{} ) ]; $self->{route_start} = $self->{route_pre}[0]; } else { @@ -343,7 +345,7 @@ sub set_dp { if ( $attrib{route_post} ) { $self->{route_post} = [ split( qr{[|]}, $attrib{route_post} // q{} ) ]; - $self->{route_end} = $self->{route_post}[-1]; + $self->{route_end} = $self->{route_post}[-1]; } else { $self->{route_post} = $self->{sched_route_post}; @@ -644,7 +646,7 @@ sub info { my ($self) = @_; my @messages = sort keys %{ $self->{messages} }; - my @ids = uniq( map { $self->{messages}{$_}->[2] } @messages ); + my @ids = uniq( map { $self->{messages}{$_}->[2] } @messages ); my @info = map { $self->translate_msg($_) } @ids; -- cgit v1.2.3