Section: expose arr/dep cancellation

lib/Travel/Routing/DE/HAFAS/Connection/Section.pm

@@ -14,7 +14,7 @@ our $VERSION = '0.00';
 
 Travel::Routing::DE::HAFAS::Connection::Section->mk_ro_accessors(
 	qw(type schep_dep rt_dep sched_arr rt_arr dep_datetime arr_datetime arr_delay dep_delay journey distance duration transfer_duration dep_loc arr_loc
-	  dep_platform arr_platform
+	  dep_platform arr_platform dep_cancelled arr_cancelled
 	  operator id name category category_long class number line line_no load delay direction)
 );
 
@@ -73,18 +73,20 @@ sub new {
 	}
 
 	my $ref = {
-		type         => $sec->{type},
-		sched_dep    => $sched_dep,
-		rt_dep       => $rt_dep,
-		sched_arr    => $sched_arr,
-		rt_arr       => $rt_arr,
-		dep_datetime => $rt_dep // $sched_dep,
-		arr_datetime => $rt_arr // $sched_arr,
-		dep_loc      => $locs->[ $sec->{dep}{locX} ],
-		arr_loc      => $locs->[ $sec->{arr}{locX} ],
-		dep_platform => $sec->{dep}{dplatfR} // $sec->{dep}{dPlatfS},
-		arr_platform => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},
-		messages     => \@messages,
+		type          => $sec->{type},
+		sched_dep     => $sched_dep,
+		rt_dep        => $rt_dep,
+		sched_arr     => $sched_arr,
+		rt_arr        => $rt_arr,
+		dep_datetime  => $rt_dep // $sched_dep,
+		arr_datetime  => $rt_arr // $sched_arr,
+		dep_loc       => $locs->[ $sec->{dep}{locX} ],
+		arr_loc       => $locs->[ $sec->{arr}{locX} ],
+		dep_platform  => $sec->{dep}{dplatfR} // $sec->{dep}{dPlatfS},
+		arr_platform  => $sec->{arr}{aplatfR} // $sec->{arr}{aPlatfS},
+		dep_cancelled => $sec->{dep}{dCncl},
+		arr_cancelled => $sec->{arr}{aCncl},
+		messages      => \@messages,
 	};
 
 	if ( $sched_dep and $rt_dep ) {