EFA, Result: parse and expose trainType and trainName fields

1 files changed, 10 insertions, 1 deletions

diff --git a/lib/Travel/Status/DE/EFA/Result.pm b/lib/Travel/Status/DE/EFA/Result.pm
index 930652c..23cbec0 100644
--- a/lib/Travel/Status/DE/EFA/Result.pm
+++ b/lib/Travel/Status/DE/EFA/Result.pm
@@ -10,7 +10,7 @@ our $VERSION = '1.22';
 
 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 train_no type)
+	  mot occupancy operator platform platform_db platform_name sched_date sched_time time train_type train_name train_no type)
 );
 
 my @mot_mapping = qw{
@@ -254,6 +254,15 @@ Scheduled departure time (HH:MM).
 
 Actual departure time (HH:MM).
 
+=item $departure->train_type
+
+Train type, e.g. "ICE". Typically only defined for long-distance trains.
+
+=item $departure->train_name
+
+Train name, e.g. "ICE International" or "InterCityExpresS" or "Deichgraf".
+Typically only defined for long-distance trains.
+
 =item $departure->train_no
 
 Train number. Only defined if departure is a train.