diff options
Diffstat (limited to 'lib')
| -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". |