diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm index 6d4f551..7f5d486 100644 --- a/lib/Travel/Status/DE/DBWagenreihung.pm +++ b/lib/Travel/Status/DE/DBWagenreihung.pm @@ -92,6 +92,12 @@ sub direction { return $self->{direction}; } +sub platform { + my ($self) = @_; + + return $self->{data}{istformation}{halt}{gleisbezeichnung}; +} + sub sections { my ($self) = @_; @@ -119,6 +125,36 @@ sub sections { return @{ $self->{sections} // [] }; } +sub station_ds100 { + my ($self) = @_; + + return $self->{data}{istformation}{halt}{rl100}; +} + +sub station_name { + my ($self) = @_; + + return $self->{data}{istformation}{halt}{bahnhofsname}; +} + +sub station_uic { + my ($self) = @_; + + return $self->{data}{istformation}{halt}{evanummer}; +} + +sub train_type { + my ($self) = @_; + + return $self->{data}{istformation}{zuggattung}; +} + +sub train_no { + my ($self) = @_; + + return $self->{data}{istformation}{zugnummer}; +} + sub wagons { my ($self) = @_; |