diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-12 20:25:50 +0100 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-11-12 20:25:50 +0100 |
| commit | 9713bec22e9aaaded6fd237f206763cc0c59cfa6 (patch) | |
| tree | 02f04497aad85c188bcc713a06976597e6f24967 | |
| parent | 7cdab8c1a3c8246d3c2f544eddc951fb90288e1c (diff) | |
Stop: Expose documented accessors as accessors. Oops.
| -rwxr-xr-x | bin/hafas-m | 20 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/HAFAS/Stop.pm | 9 |
2 files changed, 18 insertions, 11 deletions
diff --git a/bin/hafas-m b/bin/hafas-m index 980bae2..faa2a90 100755 --- a/bin/hafas-m +++ b/bin/hafas-m @@ -308,16 +308,16 @@ elsif ( $opt{journey} ) { for my $stop ( $result->route ) { printf( "%5s %s %5s %5s %1s%1s %s%s\n", - $stop->{arr_cancelled} ? '--:--' - : ( $stop->{arr} ? $stop->{arr}->strftime('%H:%M') : q{} ), - ( $stop->{arr} and $stop->{dep} ) ? '→' : q{ }, - $stop->{dep_cancelled} ? '--:--' - : ( $stop->{dep} ? $stop->{dep}->strftime('%H:%M') : q{} ), - $stop->{delay} ? sprintf( '(%+d)', $stop->{delay} ) : q{}, - display_occupancy( $stop->{load}{FIRST} ), - display_occupancy( $stop->{load}{SECOND} ), - $stop->{name}, - $stop->{direction} ? sprintf( ' → %s', $stop->{direction} ) : q{} + $stop->arr_cancelled ? '--:--' + : ( $stop->arr ? $stop->arr->strftime('%H:%M') : q{} ), + ( $stop->arr and $stop->dep ) ? '→' : q{ }, + $stop->dep_cancelled ? '--:--' + : ( $stop->dep ? $stop->dep->strftime('%H:%M') : q{} ), + $stop->delay ? sprintf( '(%+d)', $stop->delay ) : q{}, + display_occupancy( $stop->load->{FIRST} ), + display_occupancy( $stop->load->{SECOND} ), + $stop->name, + $stop->direction ? sprintf( ' → %s', $stop->direction ) : q{} ); } diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm index 185012b..008dd4e 100644 --- a/lib/Travel/Status/DE/HAFAS/Stop.pm +++ b/lib/Travel/Status/DE/HAFAS/Stop.pm @@ -11,7 +11,14 @@ use parent 'Class::Accessor'; our $VERSION = '4.19'; Travel::Status::DE::HAFAS::Stop->mk_ro_accessors( - qw(eva name lat lon distance_m weight)); + qw(eva name lat lon distance_m weight + rt_arr sched_arr arr arr_delay arr_cancelled + rt_dep sched_dep dep dep_delay dep_cancelled + delay direction + rt_platform sched_platform platform is_changed_platform + load + ) +); # {{{ Constructor |