Commit ad30b7bb authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Remove legacy $result->can checks (leftover from T-S-DE-DB support)

parent 6d29e069

lib/DBInfoscreen/Controller/Stationboard.pm

+2 −8
Original line number Diff line number Diff line
@@ -166,10 +166,6 @@ sub result_has_train_type { 
sub result_has_via {

	my ( $result, $via ) = @_;



	if ( not $result->can('route_post') ) {

		return 1;

	}



	my @route = $result->route_post;



	my $eq_result = List::MoreUtils::any { lc eq lc($via) } @route;
@@ -1169,9 +1165,7 @@ sub handle_result { 
						delayArrival   => $delay_arr,

						delayDeparture => $delay_dep,

						destination    => $result->destination,

						isCancelled    => $result->can('is_cancelled')

						? $result->is_cancelled

						: undef,

						isCancelled    => $result->is_cancelled,

						messages       => {

							delay => [

								map {