From 11654b75cd48a0a96a7cecd24b0c10fe324bc687 Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 11 Nov 2023 09:24:00 +0100
Subject: HAFAS: Add service getters and setters

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

(limited to 'lib')

diff --git a/lib/Travel/Routing/DE/HAFAS.pm b/lib/Travel/Routing/DE/HAFAS.pm
index 12995c1..70914bb 100644
--- a/lib/Travel/Routing/DE/HAFAS.pm
+++ b/lib/Travel/Routing/DE/HAFAS.pm
@@ -608,4 +608,34 @@ sub connections {
 	return @{ $self->{results} };
 }
 
+# static
+sub get_services {
+	my @services;
+	for my $service ( sort keys %hafas_instance ) {
+		my %desc = %{ $hafas_instance{$service} };
+		$desc{shortname} = $service;
+		push( @services, \%desc );
+	}
+	return @services;
+}
+
+# static
+sub get_service {
+	my ($service) = @_;
+
+	if ( defined $service and exists $hafas_instance{$service} ) {
+		return $hafas_instance{$service};
+	}
+	return;
+}
+
+sub get_active_service {
+	my ($self) = @_;
+
+	if ( defined $self->{active_service} ) {
+		return $hafas_instance{ $self->{active_service} };
+	}
+	return;
+}
+
 # }}}
-- 
cgit v1.2.3