Changelog

+git HEAD
+
+    * New dependency: DateTime
+    * Result: Add datetime, sched_datetime, rt_datetime accessors.
+    * Result: Remove date, time, sched_date, sched_time accessors.
+      Use datetime->strftime('%H:%M') etc. instead. (BREAKING CHANGE)
+    * Stop: Add arr, dep accessors.
+    * Stop: Remove arr_date, arr_time, dep_date, dep_time accessors.
+      Use arr->strftime('%d.%m.%Y') etc. instead. (BREAKING CHANGE)
+    * efa-m: Remove --track-via option, its behaviour is now included in --via
+      (BREAKING CHANGE)
+
 Travel::Status::DE::VRR 1.24 - Sat Dec 02 2023
 
     * EFA: Fix full_route creating route elements with invalid data

bin/efa-m

@@ -15,12 +15,11 @@ use Travel::Status::DE::EFA;
 
 my $efa_url = 'https://efa.vrr.de/vrr/XSLT_DM_REQUEST';
 my $efa_encoding;
-my ( $date, $time, $input_type, $list_lines, $offset, $relative_times );
-my ($full_routes);
-my ( $filter_via,    $track_via );
-my ( $timeout,       $developer_mode );
-my ( @grep_lines,    @grep_platforms, @grep_mots );
-my ( %edata,         @edata_pre );
+my ( $date,        $time, $input_type, $list_lines, $offset, $relative_times );
+my ( $full_routes, $filter_via );
+my ( $timeout,     $developer_mode );
+my ( @grep_lines,  @grep_platforms, @grep_mots );
+my ( %edata,       @edata_pre );
 my ( $list_services, $service, $discover_and_print, $discover );
 my $efa;
 
@@ -44,7 +43,7 @@ GetOptions(
 	'timeout=i'                     => \$timeout,
 	'u|efa-url=s'                   => \$efa_url,
 	'v|via=s'                       => \$filter_via,
-	'V|track-via=s'                 => sub { $filter_via = $track_via = $_[1] },
+	'V|track-via=s'                 => \$filter_via,
 	'version'                       => \&show_version,
 	'devmode'                       => \$developer_mode,
 
@@ -311,9 +310,12 @@ sub show_results {
 				$dtime = '--:--';
 			}
 		}
-		elsif ($track_via) {
+		elsif ($filter_via) {
 			my $via = first { $_->name =~ m{$filter_via}io } $d->route_post;
-			$dtime .= ' → ' . $via->arr->strftime('%H:%M');
+			$dtime
+			  .= ' → '
+			  . $via->arr->clone->add( minutes => $d->delay // 0 )
+			  ->strftime('%H:%M');
 		}
 		if ( $d->delay ) {
 			$dtime .= ' ' . format_delay( $d->delay, $delay_len );
@@ -583,15 +585,10 @@ value to disable it.
 
 =item B<-v>, B<--via> I<station>
 
-Only show trains serving I<station> after the requseted stop. I<station>
-is matched against the "I<city> I<stop>" fields in each line's route.
-Regular expressions are also supported.
-
-=item B<-V>, B<--track-via> I<station>
-
-Lik B<--via>: Only show trains serving I<station> after the requseted stop.
-Also, show the arrival time at I<station> after the departure time at the
-current stop.
+Only show trains serving I<station> after the requseted stop, and show the
+arrival time at I<station> after the departure time at the current stop.
+I<station> is matched against the "I<city> I<stop>" fields in each line's
+route. Regular expressions are also supported.
 
 =item B<--version>
 
@@ -633,7 +630,9 @@ use B<-s> I<service> when making requests.
 
 =over
 
-=item * B<--track-via> uses real-time data for departure but schedule data for arrival
+=item * EFA does not provide real-time data for the routes of requested
+departures. Hence, B<--via> estimates the arrival time from scheduled
+departure and departure delay
 
 =back