diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 15:08:23 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-22 15:08:23 +0200 |
| commit | 3dd1b3a53d48c5b1c76418fe37823ea97e58ccde (patch) | |
| tree | f22f2b21ec93f95093908bae5cf3621bc9a083e8 /lib/Travel/Status | |
| parent | 1496b2a00bcbf0c2875a2b88b95ee39524cece6e (diff) | |
Stop: Use place / name / full_name rather than just name_suf and name
Diffstat (limited to 'lib/Travel/Status')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 11 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Stop.pm | 10 |
2 files changed, 13 insertions, 8 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index e95bbcd..ab029df 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -419,11 +419,12 @@ sub parse_route { push( @ret, Travel::Status::DE::EFA::Stop->new( - arr => $arr, - dep => $dep, - name => $stop->{name}, - name_suf => $stop->{nameWO}, - platform => $ref->{platform} || $stop->{platformName} || undef, + arr => $arr, + dep => $dep, + full_name => $stop->{name}, + place => $stop->{place}, + name => $stop->{nameWO}, + platform => $ref->{platform} || $stop->{platformName} || undef, ) ); } diff --git a/lib/Travel/Status/DE/EFA/Stop.pm b/lib/Travel/Status/DE/EFA/Stop.pm index 250b347..609c197 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 name name_suf platform)); + qw(arr dep place name full_name platform)); sub new { my ( $obj, %conf ) = @_; @@ -71,12 +71,16 @@ first scheduled stop. DateTime(3pm) object holding departure date and time. undef if this is the final scheduled stop. -=item $stop->name +=item $stop->place + +City name, for instance "Essen". + +=item $stop->full_name stop name with city prefix ("I<City> I<Stop>", for instance "Essen RE<uuml>ttenscheider Stern"). -=item $stop->name_suf +=item $stop->name stop name without city prefix, for instance "RE<uuml>ttenscheider Stern". |