diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-09-11 18:22:34 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-09-11 18:22:34 +0200 |
| commit | de432ead84057a6f9234cbcb56004d625333a7bd (patch) | |
| tree | 3d86faf387f42e05f0c6cf329031ae820e476d0d /lib/Travel/Status/DE/HAFAS.pm | |
| parent | 53a32113d048c2ab7b98771ae23e470d562bb40a (diff) | |
add -m help / -m list support
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS.pm')
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index b47c2fe..8cf03e3 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -237,7 +237,16 @@ sub get_services { return @services; } +# static sub get_service { + my ($service) = @_; + + $service //= 'DB'; + + return $hafas_instance{$service}; +} + +sub get_active_service { my ($self) = @_; return %{ $hafas_instance{ $self->{active_service} } }; |