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

add accessors for identified stop

parent 3dd1b3a5

bin/efa-m

+9 −0
Original line number Diff line number Diff line
@@ -290,6 +290,15 @@ sub show_results { 
		$delay_fmt = $delay_len + 3;

	}



	if ( scalar $efa->stops > 1 ) {

		for my $stop ( $efa->stops ) {

			say $stop->full_name;

		}

	}

	else {

		say $efa->stop_name;

	}



	for my $d ( $efa->results ) {



		my @output_line;

lib/Travel/Status/DE/EFA.pm

+29 −0
Original line number Diff line number Diff line
@@ -346,6 +346,35 @@ sub check_for_ambiguous { 
	return;

}



sub stop_name {

	my ($self) = @_;



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

}



sub stops {

	my ($self) = @_;



	if ( $self->{stops} ) {

		return @{ $self->{stops} };

	}



	my @stops;

	for my $stop ( @{ $self->{response}{dm}{itdOdvAssignedStops} // [] } ) {

		push(

			@stops,

			Travel::Status::DE::EFA::Stop->new(

				place     => $stop->{place},

				name      => $stop->{name},

				full_name => $stop->{nameWithPlace},

			)

		);

	}



	$self->{stops} = \@stops;

	return @stops;

}



sub lines {

	my ($self) = @_;