From 4871bc50f636dca9030575b2d693079a5fd663d7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Tue, 11 Apr 2023 19:30:05 +0200
Subject: Journey->route: Return Stop instances

---
 lib/Travel/Status/DE/HAFAS/Stop.pm | 94 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 91 insertions(+), 3 deletions(-)

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

diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm
index 3c56900..7e05ad0 100644
--- a/lib/Travel/Status/DE/HAFAS/Stop.pm
+++ b/lib/Travel/Status/DE/HAFAS/Stop.pm
@@ -20,7 +20,7 @@ sub new {
 
 	my $loc = $opt{loc};
 	my $ref = {
-		eva        => 0 + $loc->{extId},
+		eva        => $loc->{extId} + 0,
 		name       => $loc->{name},
 		lat        => $loc->{crd}{x} * 1e-6,
 		lon        => $loc->{crd}{y} * 1e-6,
@@ -28,6 +28,12 @@ sub new {
 		distance_m => $loc->{dist},
 	};
 
+	if ( $opt{extra} ) {
+		while ( my ( $k, $v ) = each %{ $opt{extra} } ) {
+			$ref->{$k} = $v;
+		}
+	}
+
 	bless( $ref, $obj );
 
 	return $ref;
@@ -35,6 +41,20 @@ sub new {
 
 # }}}
 
+sub TO_JSON {
+	my ($self) = @_;
+
+	my $ret = { %{$self} };
+
+	for my $k ( keys %{$ret} ) {
+		if ( ref( $ret->{$k} ) eq 'DateTime' ) {
+			$ret->{$k} = $ret->{$k}->epoch;
+		}
+	}
+
+	return $ret;
+}
+
 1;
 
 __END__
@@ -63,8 +83,8 @@ version 4.09
 Travel::Status::DE::HAFAS::Stop describes a HAFAS stop. It may be part of a
 journey or part of a geoSearch / locationSearch request.
 
-geoSearch- and locationSearch-specific accessors are annotated accordingly and
-return undef for non-geoSearch / non-locationSearch stops.
+Journey-, geoSearch- and locationSearch-specific accessors are annotated
+accordingly and return undef in other contexts.
 
 =head1 METHODS
 
@@ -97,6 +117,74 @@ Distance in meters between the requested coordinates and this stop.
 Weight / Relevance / Importance of this stop using an unknown metric.
 Higher values indicate more relevant stops.
 
+=item $stop->rt_arr (journey)
+
+DateTime object for actual arrival.
+
+=item $stop->sched_arr (journey)
+
+DateTime object for scheduled arrival.
+
+=item $stop->arr (journey)
+
+DateTime object for actual or scheduled arrival.
+
+=item $stop->arr_delay (journey)
+
+Arrival delay in minutes.
+
+=item $stop->arr_cancelled (journey)
+
+Arrival is cancelled.
+
+=item $stop->rt_dep (journey)
+
+DateTime object for actual departure.
+
+=item $stop->sched_dep (journey)
+
+DateTime object for scheduled departure.
+
+=item $stop->dep (journey)
+
+DateTIme object for actual or scheduled departure.
+
+=item $stop->dep_delay (journey)
+
+Departure delay in minutes.
+
+=item $stop->dep_cancelled (journey)
+
+Departure is cancelled.
+
+=item $stop->delay (journey)
+
+Departure or arrival delay in minutes.
+
+=item $stop->direction (journey)
+
+Direction signage from this stop on, undef if unchanged.
+
+=item $stop->rt_platform (journey)
+
+Actual platform.
+
+=item $stop->sched_platform (journey)
+
+Scheduled platform.
+
+=item $stop->platform (journey)
+
+Actual or scheduled platform.
+
+=item $stop->is_changed_platform (journey)
+
+True if real-time and scheduled platform disagree.
+
+=item $stop->load (journey)
+
+Expected utilization / passenger load from this stop on.
+
 =back
 
 =head1 DIAGNOSTICS
-- 
cgit v1.2.3