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

parse and expose stop IDs

parent 38f3d2bc

lib/Travel/Status/DE/EFA.pm

+2 −0
Original line number Diff line number Diff line
@@ -367,6 +367,7 @@ sub stops { 
				place     => $stop->{place},

				name      => $stop->{name},

				full_name => $stop->{nameWithPlace},

				id        => $stop->{stopID},

			)

		);

	}
@@ -450,6 +451,7 @@ sub parse_route { 
			Travel::Status::DE::EFA::Stop->new(

				arr       => $arr,

				dep       => $dep,

				id        => $stop->{ref}{id},

				full_name => $stop->{name},

				place     => $stop->{place},

				name      => $stop->{nameWO},

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

+5 −1
Original line number Diff line number Diff line
@@ -9,7 +9,7 @@ use parent 'Class::Accessor'; 
our $VERSION = '2.02';



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

	qw(arr dep place name full_name platform));

	qw(arr dep place name full_name id platform));



sub new {

	my ( $obj, %conf ) = @_;
@@ -71,6 +71,10 @@ first scheduled stop. 
DateTime(3pm) object holding departure date and time. undef if this is the

final scheduled stop.



=item $stop->id



Stop ID.



=item $stop->place



City name, for instance "Essen".