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

EFA: Replace ->stop_name, ->stop_id with ->stop

parent 09e73c73

bin/efa-m

+2 −2
Original line number Diff line number Diff line
@@ -369,8 +369,8 @@ sub show_results { 
			say $stop->full_name;

		}

	}

	elsif ( $efa->stop_name ) {

		say $efa->stop_name;

	elsif ( $efa->stop->full_name ) {

		say $efa->stop->full_name;

	}



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

lib/Travel/Status/DE/EFA.pm

+13 −6
Original line number Diff line number Diff line
@@ -388,16 +388,23 @@ sub check_for_ambiguous { 
	return;

}



sub stop_name {

sub stop {

	my ($self) = @_;



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

	if ( $self->{stop} ) {

		return $self->{stop};

	}



sub stop_id {

	my ($self) = @_;

	my $point = $self->{response}{dm}{points}{point};

	my $place = $point->{ref}{place};



	$self->{stop} = Travel::Status::DE::EFA::Stop->new(

		place     => $place,

		full_name => $point->{name},

		name      => $point->{name} =~ s{\Q$place\E,? ?}{}r,

		id        => $point->{stateless},

	);



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

	return $self->{stop};

}



sub stops {