From de432ead84057a6f9234cbcb56004d625333a7bd Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 11 Sep 2015 18:22:34 +0200
Subject: add -m help / -m list support

---
 lib/Travel/Status/DE/HAFAS.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/Travel/Status/DE/HAFAS.pm')

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} } };
-- 
cgit v1.2.3