Unverified Commit c6a43489 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Journey: Add train_no accessor 

Closes #2
parent 40218881

lib/Travel/Status/DE/DBRIS/Journey.pm

+5 −1
Original line number Diff line number Diff line
@@ -11,7 +11,7 @@ use Travel::Status::DE::DBRIS::Location; 
our $VERSION = '0.09';



Travel::Status::DE::DBRIS::Journey->mk_ro_accessors(

	qw(day id train type number is_cancelled));

	qw(day id train train_no type number is_cancelled));



sub new {

	my ( $obj, %opt ) = @_;
@@ -30,6 +30,10 @@ sub new { 
		strptime_obj => $strptime,

	};



	if ( $json->{halte} and @{ $json->{halte} } ) {

		$ref->{train_no} = $json->{halte}[0]{nummer};

	}



	# Number is either train no (ICE, RE) or line no (S, U, Bus, ...)

	# with no way of distinguishing between those

	if ( $ref->{train} ) {