From b8c760605104322b990674d90940f409c774adff Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 13 Mar 2021 11:39:08 +0100
Subject: show occupancy data if available

---
 lib/Travel/Routing/DE/EFA/Route/Part.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/Travel/Routing/DE/EFA/Route/Part.pm')

diff --git a/lib/Travel/Routing/DE/EFA/Route/Part.pm b/lib/Travel/Routing/DE/EFA/Route/Part.pm
index 3a15fc3..da3d400 100644
--- a/lib/Travel/Routing/DE/EFA/Route/Part.pm
+++ b/lib/Travel/Routing/DE/EFA/Route/Part.pm
@@ -8,6 +8,12 @@ use parent 'Class::Accessor';
 
 our $VERSION = '2.19';
 
+my %occupancy = (
+	MANY_SEATS    => 1,
+	FEW_SEATS     => 2,
+	STANDING_ONLY => 3
+);
+
 Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors(
 	qw(arrival_platform arrival_stop
 	  arrival_date arrival_time arrival_sdate arrival_stime delay
@@ -15,6 +21,7 @@ Travel::Routing::DE::EFA::Route::Part->mk_ro_accessors(
 	  departure_stop departure_date departure_time departure_sdate
 	  departure_stime
 	  footpath_duration footpath_type
+	  occupancy
 	  train_destination train_line train_product
 	  )
 );
@@ -24,6 +31,13 @@ sub new {
 
 	my $ref = \%conf;
 
+	if ( $ref->{occupancy} and exists $occupancy{ $ref->{occupancy} } ) {
+		$ref->{occupancy} = $occupancy{ $ref->{occupancy} };
+	}
+	else {
+		delete $ref->{occupancy};
+	}
+
 	return bless( $ref, $obj );
 }
 
-- 
cgit v1.2.3