From f025a2f107bb389b2dbd50ef4e4d4ff912d993a1 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 14 Sep 2015 18:06:19 +0200 Subject: hafas-m documentation and -m help error handling --- lib/Travel/Status/DE/HAFAS.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/Travel/Status') diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 2a7bb11..8d33ec9 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -333,9 +333,10 @@ sub get_services { sub get_service { my ($service) = @_; - $service //= 'DB'; - - return $hafas_instance{$service}; + if ( defined $service ) { + return $hafas_instance{$service}; + } + return; } sub get_active_service { -- cgit v1.2.3