From b95c42c1ceef78709babec1925b2ea893f6c677e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 12 Feb 2014 18:58:42 +0100 Subject: Result: Add sched_platform accessor --- lib/Travel/Status/DE/IRIS/Result.pm | 23 +++++++++++++++++++---- 1 file changed, 19 insertions(+), 4 deletions(-) (limited to 'lib/Travel/Status') 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 -- cgit v1.2.3