From 523817239799733c15b900506ad57c5fc87c29de Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 19 Nov 2011 19:55:37 +0100 Subject: sanitize platform number, add platform_db accessor --- lib/Travel/Status/DE/VRR.pm | 7 +++++++ lib/Travel/Status/DE/VRR/Result.pm | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) (limited to 'lib/Travel/Status/DE') diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index f976c1e..065d56c 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -187,12 +187,19 @@ sub results { my $countdown = $e->getAttribute('countdown'); my $delay = $e_info->getAttribute('delay') // 0; + my $platform_is_db = 0; + + if ( $platform =~ s{ ^ \# }{}ox ) { + $platform_is_db = 1; + } + push( @results, Travel::Status::DE::VRR::Result->new( date => $rdate, time => $rtime, platform => $platform, + platform_db => $platform_is_db, line => $line, destination => decode( 'UTF-8', $dest ), countdown => $countdown, diff --git a/lib/Travel/Status/DE/VRR/Result.pm b/lib/Travel/Status/DE/VRR/Result.pm index 93e651f..9fdd826 100644 --- a/lib/Travel/Status/DE/VRR/Result.pm +++ b/lib/Travel/Status/DE/VRR/Result.pm @@ -9,7 +9,7 @@ use parent 'Class::Accessor'; our $VERSION = '0.02'; Travel::Status::DE::VRR::Result->mk_ro_accessors( - qw(countdown date delay destination info line platform sched_date sched_time time type) + qw(countdown date delay destination info line platform platform_db sched_date sched_time time type) ); sub new { -- cgit v1.2.3