Result: Add train_no accessor

2 files changed, 9 insertions, 3 deletions

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 1c75c40..92fb193 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -443,6 +443,7 @@ sub results {
 		my $countdown     = $e->getAttribute('countdown');
 		my $occupancy     = $e->getAttribute('occupancy');
 		my $line          = $e_line->getAttribute('number');
+		my $train_no      = $e_line->getAttribute('trainNum');
 		my $dest          = $e_line->getAttribute('direction');
 		my $info          = $e_info->textContent;
 		my $key           = $e_line->getAttribute('key');
@@ -501,6 +502,7 @@ sub results {
 				key           => $key,
 				lineref       => $line_obj[0] // undef,
 				line          => $line,
+				train_no      => $train_no,
 				destination   => $dest,
 				occupancy     => $occupancy,
 				countdown     => $countdown,
diff --git a/lib/Travel/Status/DE/EFA/Result.pm b/lib/Travel/Status/DE/EFA/Result.pm
index 2e1fdb0..a072b1e 100644
--- a/lib/Travel/Status/DE/EFA/Result.pm
+++ b/lib/Travel/Status/DE/EFA/Result.pm
@@ -12,7 +12,7 @@ our $VERSION = '1.18';
 
 Travel::Status::DE::EFA::Result->mk_ro_accessors(
 	qw(countdown date delay destination is_cancelled info key line lineref
-	  mot occupancy operator platform platform_db platform_name sched_date sched_time time type)
+	  mot occupancy operator platform platform_db platform_name sched_date sched_time time train_no type)
 );
 
 my @mot_mapping = qw{
@@ -236,12 +236,12 @@ object.
 
 =item $departure->route_pre
 
-List of stations the train passed (or will have passed) befoe this stop.
+List of stations the vehicle passed (or will have passed) before this stop.
 Each station is a Travel::Status::DE::EFA::Stop(3pm) object.
 
 =item $departure->route_post
 
-List of stations the train will pass after this stop.
+List of stations the vehicle will pass after this stop.
 Each station is a Travel::Status::DE::EFA::Stop(3pm) object.
 
 =item $departure->sched_date
@@ -256,6 +256,10 @@ Scheduled departure time (HH:MM).
 
 Actual departure time (HH:MM).
 
+=item $departure->train_no
+
+Train number. Only defined if departure is a train.
+
 =item $departure->type
 
 Type of the departure.  Note that efa.vrr.de sometimes puts bogus data in this