diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBRIS.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/DBRIS.pm b/lib/Travel/Status/DE/DBRIS.pm index 9691dbd..117155c 100644 --- a/lib/Travel/Status/DE/DBRIS.pm +++ b/lib/Travel/Status/DE/DBRIS.pm @@ -153,7 +153,7 @@ sub new { $self->parse_stationboard; } elsif ( $conf{journey} ) { - $self->parse_journey; + $self->parse_journey( id => $conf{journey} ); } elsif ( $conf{geoSearch} or $conf{locationSearch} ) { $self->parse_search; @@ -194,7 +194,7 @@ sub new_p { $self->parse_stationboard; } elsif ( $conf{journey} ) { - $self->parse_journey; + $self->parse_journey( id => $conf{journey} ); } elsif ( $conf{geoSearch} or $conf{locationSearch} ) { $self->parse_search; @@ -312,9 +312,10 @@ sub get_with_cache_p { } sub parse_journey { - my ($self) = @_; + my ( $self, %opt ) = @_; $self->{result} = Travel::Status::DE::DBRIS::Journey->new( + id => $opt{id}, json => $self->{raw_json}, strpdate_obj => $self->{strpdate_obj}, strptime_obj => $self->{strptime_obj}, |