summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/hafas-m20
-rw-r--r--lib/Travel/Status/DE/HAFAS/Stop.pm9
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