From 9b514055b03ef9db4be1b006195301dd8e289c1b Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 26 Apr 2024 20:15:14 +0200
Subject: Add TO_JSON function

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

(limited to 'lib/Travel/Status/DE')

diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index dc120af..5e612dd 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -183,6 +183,25 @@ sub errstr {
 	return $self->{errstr};
 }
 
+sub TO_JSON {
+	my ($self) = @_;
+
+	# ensure that all objects are available
+	$self->direction;
+	$self->origins;
+	$self->destinations;
+	$self->train_numbers;
+	$self->train_descriptions;
+	$self->wagons;
+	$self->{platform} = $self->platform;
+
+	my %copy = %{$self};
+
+	delete $copy{from_json};
+
+	return {%copy};
+}
+
 sub direction {
 	my ($self) = @_;
 
-- 
cgit v1.2.3