Commit 61d6fa31 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Result.pm: perltidy, perlcritic

parent ef1ace49

lib/Travel/Status/DE/IRIS/Result.pm

+15 −6
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@ use warnings; 
use 5.010;

use utf8;



no if $] >= 5.018, warnings => "experimental::smartmatch";

no if $] >= 5.018, warnings => 'experimental::smartmatch';



use parent 'Class::Accessor';

use Carp qw(cluck);
@@ -60,9 +60,9 @@ sub new { 
	$ref->{time} = $dt->strftime('%H:%M');



	$ref->{route_pre} = $ref->{sched_route_pre}

	  = [ split( qr{\|}, $ref->{route_pre} // q{} ) ];

	  = [ split( qr{[|]}, $ref->{route_pre} // q{} ) ];

	$ref->{route_post} = $ref->{sched_route_post}

	  = [ split( qr{\|}, $ref->{route_post} // q{} ) ];

	  = [ split( qr{[|]}, $ref->{route_post} // q{} ) ];



	$ref->{route_pre_incomplete}  = $ref->{route_end}  ? 1 : 0;

	$ref->{route_post_incomplete} = $ref->{route_post} ? 1 : 0;
@@ -101,6 +101,8 @@ sub add_ar { 
	if ( $attrib{status} and $attrib{status} eq 'c' ) {

		$self->{is_cancelled} = 1;

	}



	return $self;

}



sub add_dp {
@@ -121,18 +123,24 @@ sub add_dp { 
	if ( $attrib{status} and $attrib{status} eq 'c' ) {

		$self->{is_cancelled} = 1;

	}



	return $self;

}



sub add_messages {

	my ( $self, %messages ) = @_;



	$self->{messages} = \%messages;



	return $self;

}



sub add_realtime {

	my ( $self, $xmlobj ) = @_;



	$self->{realtime_xml} = $xmlobj;



	return $self;

}



sub add_tl {
@@ -297,7 +305,8 @@ sub translate_msg { 
		85 => 'Ein Wagen fehlt',

		86 => 'Keine Reservierungsanzeige',

		87 => 'Einzelne Wagen ohne Reservierungsanzeige',

		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',

		90 => 'Kein Bordrestaurant/Bordbistro',

		91 => 'Eingeschränkte Fahrradmitnahme',