diff options
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". |