summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2016-06-19 22:18:06 +0200
committerDaniel Friesel <derf@finalrewind.org>2016-06-19 22:18:06 +0200
commit381ef5566e36deda5fa7e863219d866830bb9652 (patch)
treeb688c96c5eb20f1e093d6805ca407615016710a1 /lib/Travel/Status
parente99da818f0f389e51585f88e40f104e56c4685a0 (diff)
Result: classes: Actually return a list
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm10
1 files changed, 9 insertions, 1 deletions
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 ) = @_;