diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index 79852e7..381b021 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -31,8 +31,9 @@ sub new { iris_base => $opt{iris_base} // 'http://iris.noncd.db.de/iris-tts/timetable', lookahead => $opt{lookahead} // ( 4 * 60 ), - station => $opt{station}, - user_agent => $ua, + serializable => $opt{serializable}, + station => $opt{station}, + user_agent => $ua, }; bless( $self, $class ); @@ -210,7 +211,9 @@ sub get_realtime { next; } - $result->add_realtime($s); + if ( not $self->{serializable} ) { + $result->add_realtime($s); + } for my $e_m (@e_ms) { my $type = $e_m->getAttribute('t'); |