parse and expose stop IDs

2 files changed, 7 insertions, 1 deletions

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index 122fcc7..a797d99 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -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},
diff --git a/lib/Travel/Status/DE/EFA/Stop.pm b/lib/Travel/Status/DE/EFA/Stop.pm
index 609c197..0332311 100644
--- a/lib/Travel/Status/DE/EFA/Stop.pm
+++ b/lib/Travel/Status/DE/EFA/Stop.pm
@@ -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".