diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 17:13:43 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 17:13:43 +0200 |
| commit | 8eb5ae8c9067f5a247789b61795a257341164fc0 (patch) | |
| tree | 0b2d663c818ed48b3d56de2eb0153653c8256ace /lib | |
| parent | 38f3d2bcae2dd5ec6f7c09e3ed86868fb0c384ed (diff) | |
parse and expose stop IDs
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 2 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Stop.pm | 6 |
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". |