Result: classes: Actually return a list

);

Travel::Status::DE::IRIS::Result->mk_ro_accessors(

	qw(arrival classes date datetime delay departure is_cancelled is_transfer

	qw(arrival date datetime delay departure is_cancelled is_transfer

	  is_unscheduled is_wing line_no old_train_id old_train_no platform raw_id

	  realtime_xml route_start route_end

	  sched_arrival sched_departure sched_platform sched_route_start

		[ $self->{comparator}->get_unique ] );

}

sub classes {

	my ($self) = @_;

	my @classes = split(//, $self->{classes});

	return @classes;

}

sub merge_with_departure {

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