Unverified Commit 1902055d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

perltidy

parent 69690b10

lib/Travel/Status/DE/IRIS.pm

+2 −2
Original line number Original line Diff line number Diff line
@@ -293,7 +293,7 @@ sub postprocess_results { 
		for my $transfer (@merge_candidates) {

		for my $transfer (@merge_candidates) {

			my $result

			my $result

			  = first { $_->transfer and $_->transfer eq $transfer->train_id }

			  = first { $_->transfer and $_->transfer eq $transfer->train_id }

			@{ $self->{results} };

			  @{ $self->{results} };

			if ($result) {

			if ($result) {

				$result->merge_with_departure($transfer);

				$result->merge_with_departure($transfer);

			}

			}
@@ -848,7 +848,7 @@ sub get_result_by_train { 
	my ( $self, $type, $train_no ) = @_;

	my ( $self, $type, $train_no ) = @_;





	my $res = first { $_->type eq $type and $_->train_no eq $train_no }

	my $res = first { $_->type eq $type and $_->train_no eq $train_no }

	@{ $self->{results} };

	  @{ $self->{results} };

	return $res;

	return $res;

}

}