From 381ef5566e36deda5fa7e863219d866830bb9652 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 19 Jun 2016 22:18:06 +0200
Subject: Result: classes: Actually return a list

---
 lib/Travel/Status/DE/IRIS/Result.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index e3957f5..d4d26e2 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -98,7 +98,7 @@ my %translation = (
 );
 
 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
@@ -410,6 +410,14 @@ sub canceled_stops {
 		[ $self->{comparator}->get_unique ] );
 }
 
+sub classes {
+	my ($self) = @_;
+
+	my @classes = split(//, $self->{classes});
+
+	return @classes;
+}
+
 sub merge_with_departure {
 	my ( $self, $result ) = @_;
 
-- 
cgit v1.2.3