diff options
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index ca2968b..2d9ba87 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -659,6 +659,42 @@ sub similar_stops { return; } +sub station { + my ($self) = @_; + + if ( $self->{station_info} ) { + return $self->{station_info}; + } + + my @locL = @{ $self->{raw_json}{svcResL}[0]{res}{common}{locL} // [] }; + + my %prefc_by_loc; + + for my $i ( 0 .. $#locL ) { + my $loc = $locL[$i]; + if ( $loc->{pRefL} ) { + $prefc_by_loc{$i} = $#{ $loc->{pRefL} }; + } + } + + my @prefcounts = sort { $b->[0] <=> $a->[0] } + map { [ $_, $prefc_by_loc{$_} ] } keys %prefc_by_loc; + + my $loc = $locL[ $prefcounts[0][0] ]; + + if ($loc) { + $self->{station_info} = { + name => $loc->{name}, + uic => $loc->{extId}, + }; + } + else { + $self->{station_info} = {}; + } + + return $self->{station_info}; +} + sub messages { my ($self) = @_; return @{ $self->{messages} }; |