diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-26 05:09:21 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-09-26 05:09:21 +0200 |
| commit | 3752aa0fb16aaee7b8b55f5bdac42f21b3d0ee43 (patch) | |
| tree | 0182d89ad528e25b743fadd7285cee4e24c7863a /lib/Travel/Status/DE/EFA/Stop.pm | |
| parent | 385b25b93a3f10a4044df9fc73027b8ae70dbc8a (diff) | |
Trip->route: return Stop instances
Diffstat (limited to 'lib/Travel/Status/DE/EFA/Stop.pm')
| -rw-r--r-- | lib/Travel/Status/DE/EFA/Stop.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/EFA/Stop.pm b/lib/Travel/Status/DE/EFA/Stop.pm index 0332311..1df8cc8 100644 --- a/lib/Travel/Status/DE/EFA/Stop.pm +++ b/lib/Travel/Status/DE/EFA/Stop.pm @@ -9,13 +9,20 @@ use parent 'Class::Accessor'; our $VERSION = '2.02'; Travel::Status::DE::EFA::Stop->mk_ro_accessors( - qw(arr dep place name full_name id platform)); + qw(sched_arr rt_arr arr + sched_dep rt_dep dep + place name full_name id latlon + platform niveau) +); sub new { my ( $obj, %conf ) = @_; my $ref = \%conf; + $ref->{arr} //= $ref->{rt_arr} // $ref->{sched_arr}; + $ref->{dep} //= $ref->{rt_dep} // $ref->{sched_dep}; + return bless( $ref, $obj ); } |