Journey: add is_additional accessor

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 593b9c6..90c336c 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -15,7 +15,7 @@ our $VERSION = '5.03';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
-	  is_cancelled is_partially_cancelled
+	  is_additional is_cancelled is_partially_cancelled
 	  station station_eva platform sched_platform rt_platform operator
 	  id name type type_long class number line line_no load delay
 	  route_end route_start origin destination direction)
@@ -161,6 +161,7 @@ sub new {
 			$ref->{destination} = $ref->{route_end};
 			$ref->{is_cancelled} ||= $journey->{stbStop}{dCncl};
 		}
+		$ref->{is_additional} = $journey->{stbStop}{isAdd};
 	}
 	else {
 		$ref->{route_start} = $stops[0]{loc}->name;
@@ -479,6 +480,11 @@ undef if neither is available.
 Delay in minutes, or undef if it is unknown.
 Also returns undef if the arrival/departure has been cancelled.
 
+=item $journey->is_additional (station only)
+
+True if the journey's stop at the requested station is an unscheduled addition
+to its route.
+
 =item $journey->is_cancelled
 
 True if the journey was cancelled, false otherwise.