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.pm23
1 files changed, 19 insertions, 4 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 49d544d..4061f54 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -18,9 +18,9 @@ our $VERSION = '0.02';
Travel::Status::DE::IRIS::Result->mk_ro_accessors(
qw(arrival classes date datetime delay departure is_cancelled is_transfer
line_no old_train_id old_train_no platform raw_id realtime_xml
- route_start route_end sched_arrival sched_departure sched_route_start
- sched_route_end start stop_no time train_id train_no transfer type
- unknown_t unknown_o)
+ 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)
);
sub new {
@@ -76,6 +76,7 @@ sub new {
$ref->{route_pre_incomplete} = $ref->{route_end} ? 1 : 0;
$ref->{route_post_incomplete} = $ref->{route_post} ? 1 : 0;
+ $ref->{sched_platform} = $ref->{platform};
$ref->{route_end}
= $ref->{sched_route_end}
= $ref->{route_end}
@@ -107,6 +108,10 @@ sub add_ar {
->in_units('minutes');
}
+ if ( $attrib{platform} ) {
+ $self->{platform} = $attrib{platform};
+ }
+
if ( $attrib{route_pre} ) {
$self->{route_pre} = [ split( qr{[|]}, $attrib{route_pre} // q{} ) ];
$self->{route_start} = $self->{route_pre}[0];
@@ -134,6 +139,10 @@ sub add_dp {
->in_units('minutes');
}
+ if ( $attrib{platform} ) {
+ $self->{platform} = $attrib{platform};
+ }
+
if ( $attrib{route_post} ) {
$self->{route_post} = [ split( qr{[|]}, $attrib{route_post} // q{} ) ];
$self->{route_end} = $self->{route_post}[-1];
@@ -641,7 +650,7 @@ case of a duplicate, only the most recent message is present)
=item $result->platform
-Arrivel/departure platform as string, undef if unknown. Note that this is
+Arrival/departure platform as string, undef if unknown. Note that this is
not neccessarily a number, platform sections may be included (e.g.
C<< 3a/b >>).
@@ -702,6 +711,12 @@ train starts here.
DateTime(3pm) object for the scehduled departure date and time. undef if the
train ends here.
+=item $result->sched_platform
+
+Scheduled Arrival/departure platform as string, undef if unknown. Note that
+this is not neccessarily a number, platform sections may be included (e.g. C<<
+3a/b >>).
+
=item $result->sched_route
List of all stations served by this train, according to its schedule. Does