add accessors for identified stop

1 files changed, 29 insertions, 0 deletions

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index ab029df..8774d59 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -346,6 +346,35 @@ sub check_for_ambiguous {
 	return;
 }
 
+sub stop_name {
+	my ($self) = @_;
+
+	return $self->{response}{dm}{points}{point}{name};
+}
+
+sub stops {
+	my ($self) = @_;
+
+	if ( $self->{stops} ) {
+		return @{ $self->{stops} };
+	}
+
+	my @stops;
+	for my $stop ( @{ $self->{response}{dm}{itdOdvAssignedStops} // [] } ) {
+		push(
+			@stops,
+			Travel::Status::DE::EFA::Stop->new(
+				place     => $stop->{place},
+				name      => $stop->{name},
+				full_name => $stop->{nameWithPlace},
+			)
+		);
+	}
+
+	$self->{stops} = \@stops;
+	return @stops;
+}
+
 sub lines {
 	my ($self) = @_;