diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 3 |
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} |