diff options
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index f527341..4b5745a 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -491,6 +491,9 @@ sub get_station { my $station_node = ( $xml_st->findnodes('//station') )[0]; if ( not $station_node ) { + if ( $self->{developer_mode} ) { + say ' no timetable'; + } if ( $opt{root} ) { $self->{errstr} = "Station '$station' has no associated timetable"; @@ -682,6 +685,12 @@ sub get_timetable { $self->add_result( $station, $eva, $s ); } + if ( $self->{developer_mode} + and not scalar $xml->findnodes('/timetable/s') ) + { + say ' no scheduled trains'; + } + return $self; } |