summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2019-01-02 13:25:08 +0100
committerDaniel Friesel <derf@finalrewind.org>2019-01-02 13:25:16 +0100
commit2e6079b836075221e462cb44c11a3ec23707f462 (patch)
tree892a9326d57c5ffb5ad98c4589d01ee78441a0db /lib/Travel/Status
parent59bf31e9c5224ab82f10e2bf787fdf2d8272387e (diff)
Add generic train data accessors
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm36
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) = @_;