fine-grained specification of passengers and discounts

1 files changed, 51 insertions, 21 deletions

diff --git a/lib/Travel/Routing/DE/DBRIS.pm b/lib/Travel/Routing/DE/DBRIS.pm
index 8bf6bbe..b19c7e9 100644
--- a/lib/Travel/Routing/DE/DBRIS.pm
+++ b/lib/Travel/Routing/DE/DBRIS.pm
@@ -21,6 +21,12 @@ our $VERSION = '0.01';
 
 Travel::Routing::DE::DBRIS->mk_ro_accessors(qw(earlier later));
 
+my %passenger_type_map = (
+	adult  => 'ERWACHSENER',
+	junior => 'JUGENDLICHER',
+	senior => 'SENIOR',
+);
+
 # {{{ Constructors
 
 sub new {
@@ -94,30 +100,50 @@ sub new {
 		push( @{ $req->{zwischenhalte} }, $via_stop );
 	}
 
-	if ( @{ $conf{discounts} // [] } ) {
-		$req->{reisende}[0]{ermaessigungen} = [];
+	if ( @{ $conf{passengers} // [] } ) {
+		$req->{reisende} = [];
 	}
-	for my $discount ( @{ $conf{discounts} // [] } ) {
-		my ( $type, $class );
-		for my $num (qw(25 50 100)) {
-			if ( $discount eq "bc${num}" ) {
-				$type  = "BAHNCARD${num}";
-				$class = 'KLASSE_2';
+
+	for my $passenger ( @{ $conf{passengers} // [] } ) {
+		if ( not $passenger_type_map{ $passenger->{type} } ) {
+			die("Unknown passenger type: '$passenger->{type}'");
+		}
+		my $entry = {
+			typ    => $passenger_type_map{ $passenger->{type} },
+			alter  => [],
+			anzahl => 1
+		};
+		for my $discount ( @{ $passenger->{discounts} // [] } ) {
+			my ( $type, $class );
+			for my $num (qw(25 50 100)) {
+				if ( $discount eq "bc${num}" ) {
+					$type  = "BAHNCARD${num}";
+					$class = 'KLASSE_2';
+				}
+				elsif ( $discount eq "bc${num}-first" ) {
+					$type  = "BAHNCARD${num}";
+					$class = 'KLASSE_1';
+				}
 			}
-			elsif ( $discount eq "bc${num}-first" ) {
-				$type  = "BAHNCARD${num}";
-				$class = 'KLASSE_1';
+			if ($type) {
+				push(
+					@{ $entry->{ermaessigungen} },
+					{
+						art    => $type,
+						klasse => $class,
+					}
+				);
 			}
 		}
-		if ($type) {
-			push(
-				@{ $req->{reisende}[0]{ermaessigungen} },
+		if ( not @{ $entry->{ermaessigungen} // [] } ) {
+			$entry->{ermaessigungen} = [
 				{
-					art    => $type,
-					klasse => $class,
+					art    => 'KEINE_ERMAESSIGUNG',
+					klasse => 'KLASSENLOS'
 				}
-			);
+			];
 		}
+		push( @{ $req->{reisende} }, $entry );
 	}
 
 	$self->{strptime_obj} //= DateTime::Format::Strptime->new(
@@ -381,11 +407,15 @@ Default: de.
 Only request connections using the modes of transit specified in I<arrayref>.
 Default: ICE, EC_IC, IR, REGIONAL, SBAHN, BUS, SCHIFF, UBAHN, TRAM, ANRUFPFLICHTIG.
 
-=item B<discounts> => I<arrayref>
+=item B<passengers> => I<arrayref>
+
+Use passengers as defined by I<arrayref> when determining offer prices.  Each
+entry describes a single person with a B<type> (string) and B<discounts>
+(arrayref). B<type> must be B<adult> (27 to 64 years old), B<junior> (15 to 26
+years old), or B<senior> (65 years or older). Supported discounts are: bc25,
+bc25-first, bc50, bc50-first, bc100, bc100-first.
 
-Consider discounts specified in I<arrayref> when determining offer prices.
-Supported items: bc25, bc25-first, bc50, bc50-first, bc100, bc100-first.
-Default: none.
+Default: single adult, no discounts.
 
 =item B<user_agent> => I<user agent>