diff options
Diffstat (limited to 'lib/Travel/Status/DE/IRIS/Result.pm')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 10 |
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 ) = @_; |