expose connection price offers

2 files changed, 15 insertions, 4 deletions

diff --git a/bin/dbris b/bin/dbris
index f30cdca..d6a642d 100755
--- a/bin/dbris
+++ b/bin/dbris
@@ -219,13 +219,15 @@ for my $connection ( $ris->connections ) {
 
 	say q{};
 	printf(
-		"%s  (%02d:%02d)  %s  %s%s\n\n",
-		$connection->dep
-		? $connection->dep->strftime('%d.%m. %H:%M')
+		"%s  (%02d:%02d)  %s  %s%s%s\n\n",
+		$connection->dep ? $connection->dep->strftime('%d.%m. %H:%M')
 		: q{??.??. ??:??},
 		$connection->duration->in_units( 'hours', 'minutes' ),
 		$connection->arr ? $connection->arr->strftime('%H:%M') : q{??:??},
 		format_occupancy($connection),
+		defined $connection->price
+		? sprintf( '  %s %s', $connection->price, $connection->price_unit )
+		: q{},
 		$header,
 	);
 	for my $segment ( $connection->segments ) {
diff --git a/lib/Travel/Routing/DE/DBRIS/Connection.pm b/lib/Travel/Routing/DE/DBRIS/Connection.pm
index f516729..5c2f6b8 100644
--- a/lib/Travel/Routing/DE/DBRIS/Connection.pm
+++ b/lib/Travel/Routing/DE/DBRIS/Connection.pm
@@ -3,6 +3,7 @@ package Travel::Routing::DE::DBRIS::Connection;
 use strict;
 use warnings;
 use 5.020;
+use utf8;
 
 use parent 'Class::Accessor';
 
@@ -16,7 +17,9 @@ Travel::Routing::DE::DBRIS::Connection->mk_ro_accessors(
 	  duration sched_duration rt_duration
 	  sched_dep rt_dep dep
 	  sched_arr rt_arr arr
-	  occupancy occupancy_first occupancy_second)
+	  occupancy occupancy_first occupancy_second
+	  price price_unit
+	)
 );
 
 sub new {
@@ -29,9 +32,15 @@ sub new {
 	my $ref = {
 		changes      => $json->{umstiegsAnzahl},
 		id           => $json->{tripId},
+		price        => $json->{angebotsPreis}{betrag},
+		price_unit   => $json->{angebotsPreis}{waehrung},
 		strptime_obj => $strptime,
 	};
 
+	if ( $ref->{price_unit} and $ref->{price_unit} eq 'EUR' ) {
+		$ref->{price_unit} = '€';
+	}
+
 	if ( my $d = $json->{verbindungsDauerInSeconds} ) {
 		$ref->{sched_duration} = DateTime::Duration->new(
 			hours   => int( $d / 3600 ),