From 9713bec22e9aaaded6fd237f206763cc0c59cfa6 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sun, 12 Nov 2023 20:25:50 +0100 Subject: Stop: Expose documented accessors as accessors. Oops. --- bin/hafas-m | 20 ++++++++++---------- 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 -- cgit v1.2.3