From 43f83fc7df3a563521af01dd1251ddd8e8d21d3a Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 11 Sep 2011 13:17:12 +0200 Subject: Add initial support for additional departure information --- lib/Travel/Status/DE/VRR.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/Travel/Status/DE/VRR.pm') diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index ae1ef44..3a7375d 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -94,14 +94,16 @@ sub results { [ 'platform', './td[3]' ], [ 'line', './td[5]' ], [ 'dest', './td[7]' ], + [ 'info', './td[9]' ], ); @parts = map { [ $_->[0], XML::LibXML::XPathExpression->new( $_->[1] ) ] } @parts; for my $tr ( $self->{tree}->findnodes($xp_element) ) { - my ( $time, $platform, $line, $dest ) + my ( $time, $platform, $line, $dest, $info ) = map { ( $tr->findnodes( $_->[1] ) )[0]->textContent } @parts; + push( @results, Travel::Status::DE::VRR::Result->new( @@ -109,6 +111,7 @@ sub results { platform => $platform, line => $line, destination => $dest, + info => $info, ) ); } -- cgit v1.2.3