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

Journey: Add line_no accessor

parent c6a43489

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 train_no type number is_cancelled));

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



sub new {

	my ( $obj, %opt ) = @_;
@@ -47,6 +47,10 @@ sub new { 
		$ref->{number} = $+{line};

	}



	if (defined $ref->{number} and defined $ref->{train_no} and $ref->{number} ne $ref->{train_no}) {

		$ref->{line_no} = $ref->{number};

	}



	bless( $ref, $obj );



	for my $message ( @{ $json->{himMeldungen} // [] } ) {