Commit 2e6079b8 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Add generic train data accessors

parent 59bf31e9

bin/db-wagenreihung

+2 −0
Original line number Diff line number Diff line
@@ -70,6 +70,8 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( 
	train_number   => $train_number,

);



printf("%s %s in %s Gleis %s\n", $wr->train_type, $wr->train_no, $wr->station_name, $wr->platform);



for my $section ( $wr->sections ) {

	my $section_length = $section->length_percent;

	my $spacing_left   = int( ( $section_length - 2 ) / 2 ) - 1;

lib/Travel/Status/DE/DBWagenreihung.pm

+36 −0
Original line number Diff line number Diff line
@@ -92,6 +92,12 @@ sub direction { 
	return $self->{direction};

}



sub platform {

	my ($self) = @_;



	return $self->{data}{istformation}{halt}{gleisbezeichnung};

}



sub sections {

	my ($self) = @_;
@@ -119,6 +125,36 @@ sub sections { 
	return @{ $self->{sections} // [] };

}



sub station_ds100 {

	my ($self) = @_;



	return $self->{data}{istformation}{halt}{rl100};

}



sub station_name {

	my ($self) = @_;



	return $self->{data}{istformation}{halt}{bahnhofsname};

}



sub station_uic {

	my ($self) = @_;



	return $self->{data}{istformation}{halt}{evanummer};

}



sub train_type {

	my ($self) = @_;



	return $self->{data}{istformation}{zuggattung};

}



sub train_no {

	my ($self) = @_;



	return $self->{data}{istformation}{zugnummer};

}



sub wagons {

	my ($self) = @_;