summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/IRIS')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm25
1 files changed, 20 insertions, 5 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 80319b5..82659b3 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -95,11 +95,12 @@ my %translation = (
);
Travel::Status::DE::IRIS::Result->mk_ro_accessors(
- qw(arrival classes date datetime delay departure is_cancelled is_transfer is_wing
- line_no train_no_transfer old_train_id old_train_no platform raw_id
- realtime_xml route_start route_end sched_arrival sched_departure
- sched_platform sched_route_start sched_route_end start stop_no time
- train_id train_no transfer type unknown_t unknown_o wing_id)
+ qw(arrival classes date datetime delay departure is_cancelled is_transfer
+ is_unscheduled is_wing line_no train_no_transfer old_train_id
+ old_train_no platform raw_id realtime_xml route_start route_end
+ sched_arrival sched_departure sched_platform sched_route_start
+ sched_route_end start stop_no time train_id train_no transfer type
+ unknown_t unknown_o wing_id)
);
sub new {
@@ -326,6 +327,12 @@ sub set_tl {
return $self;
}
+sub set_unscheduled {
+ my ( $self, $unscheduled ) = @_;
+
+ $self->{is_unscheduled} = $unscheduled;
+}
+
sub add_arrival_wingref {
my ( $self, $ref ) = @_;
@@ -821,6 +828,14 @@ the results and indicates it by setting B<is_transfer> to a true value.
In case of a transfer, B<train_id> and B<train_no> are set to the "new"
value, the old ones are available in B<old_train_id> and B<old_train_no>.
+=item $result->is_unscheduled
+
+True if the train does not appear in the requested plans. This can happen
+because of two reasons: Either the scheduled time and the actual time are so
+far apart that it should've arrived/departed long ago, or it really is an
+unscheduled train. In that case, it can be a replacement or an additional
+train. There is no logic to distinguish these cases yet.
+
=item $result->is_wing
Returns true if this result is a wing, false otherwise.