JourneyAtStop->via: return list (not listref); exclude request stop

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm
index f01786a..9ed5270 100644
--- a/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm
+++ b/lib/Travel/Status/DE/DBRIS/JourneyAtStop.pm
@@ -9,7 +9,7 @@ use parent 'Class::Accessor';
 our $VERSION = '0.05';
 
 Travel::Status::DE::DBRIS::JourneyAtStop->mk_ro_accessors(
-	qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via via_last
+	qw(type dep sched_dep rt_dep delay is_cancelled line stop_eva id platform rt_platform destination via_last
 	  train_short train_mid train_long train maybe_train_no maybe_line_no
 	)
 );
@@ -36,6 +36,10 @@ sub new {
 		via_last    => ( $json->{ueber} // [] )->[-1],
 	};
 
+	if ( $ref->{via} and @{ $ref->{via} } ) {
+		shift( @{ $ref->{via} } );
+	}
+
 	$ref->{maybe_train_no} = $ref->{train}     =~ s{^.* ++}{}r;
 	$ref->{maybe_line_no}  = $ref->{train_mid} =~ s{^.* ++}{}r;
 
@@ -70,6 +74,12 @@ sub messages {
 	return @{ $self->{messages} // [] };
 }
 
+sub via {
+	my ($self) = @_;
+
+	return @{ $self->{via} // [] };
+}
+
 sub TO_JSON {
 	my ($self) = @_;