diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-09-01 10:17:27 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-09-01 10:17:27 +0200 |
| commit | 0f6feddd30bc0e2d0467084b283b25124de7d39e (patch) | |
| tree | 4fc39a6c85ce285bf06bb73a4630defddab185dd | |
| parent | 42887d67bdffc34ac3793e530d73dd26e1780659 (diff) | |
TODO
| -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} |