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

EFA, Trip: Add stop_id accessor

parent 669aa8b7

lib/Travel/Status/DE/EFA.pm

+6 −0
Original line number Diff line number Diff line
@@ -394,6 +394,12 @@ sub stop_name { 
	return $self->{response}{dm}{points}{point}{name};

}



sub stop_id {

	my ($self) = @_;



	return $self->{response}{dm}{points}{point}{stateless};

}



sub stops {

	my ($self) = @_;

lib/Travel/Status/DE/EFA/Stop.pm

+1 −1
Original line number Diff line number Diff line
@@ -12,7 +12,7 @@ Travel::Status::DE::EFA::Stop->mk_ro_accessors( 
	qw(sched_arr rt_arr arr arr_delay

	  sched_dep rt_dep dep dep_delay

	  occupancy delay

	  place name full_name id latlon

	  place name full_name id stop_id latlon

	  platform niveau)

);

lib/Travel/Status/DE/EFA/Trip.pm

+3 −1
Original line number Diff line number Diff line
@@ -68,7 +68,7 @@ sub route { 


	for my $stop ( @{ $self->{route_raw} // [] } ) {

		my $chain = $stop;

		my ( $platform, $place, $name, $name_full );

		my ( $platform, $place, $name, $name_full, $stop_id );

		while ( $chain->{type} ) {

			if ( $chain->{type} eq 'platform' ) {

				$platform = $chain->{properties}{platformName}
@@ -77,6 +77,7 @@ sub route { 
			elsif ( $chain->{type} eq 'stop' ) {

				$name      = $chain->{disassembledName};

				$name_full = $chain->{name};

				$stop_id   = $chain->{properties}{stopId};

			}

			elsif ( $chain->{type} eq 'locality' ) {

				$place = $chain->{name};
@@ -97,6 +98,7 @@ sub route { 
				niveau    => $stop->{niveau},

				platform  => $platform,

				id        => $stop->{id},

				stop_id   => $stop_id,

			)

		);

	}