Unverified Commit 9713bec2 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Stop: Expose documented accessors as accessors. Oops.

parent 7cdab8c1

bin/hafas-m

+10 −10
Original line number Diff line number Diff line
@@ -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{}

		);

	}

lib/Travel/Status/DE/HAFAS/Stop.pm

+8 −1
Original line number Diff line number Diff line
@@ -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