summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Travel/Status/DE/IRIS.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index c2b2c5a..5dc4cf2 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -54,6 +54,9 @@ sub new {
my $xml_st = XML::LibXML->load_xml( string => $res_st->decoded_content );
$self->{nodes}{station} = ( $xml_st->findnodes('//station') )[0];
+ # TODO parse 'meta' and maybe 'p' flags
+ # They're optional pointers to related platforms. For instance
+ # Berlin Hbf/BL -> Berlin HBf (tief), Berlin Hbf (S), ...
if ( not $self->{nodes}{station} ) {
$self->{errstr}