Commit 0e1bb3d6 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add accessors for whole (related) station data set

parent bc441c22

lib/Travel/Status/DE/IRIS.pm

+12 −7
Original line number Original line Diff line number Diff line
@@ -35,7 +35,6 @@ sub new { 
		  // 'http://iris.noncd.db.de/iris-tts/timetable',

		  // 'http://iris.noncd.db.de/iris-tts/timetable',

		lookahead => $opt{lookahead} // ( 4 * 60 ),

		lookahead => $opt{lookahead} // ( 4 * 60 ),

		serializable => $opt{serializable},

		serializable => $opt{serializable},

		station      => $opt{station},

		user_agent   => $ua,

		user_agent   => $ua,

		with_related => $opt{with_related},

		with_related => $opt{with_related},

	};

	};
@@ -50,8 +49,8 @@ sub new { 
		recursive => $opt{with_related},

		recursive => $opt{with_related},

	);

	);





	$self->{station_code} = $station->{uic};

	$self->{station}          = $station;

	$self->{station_name} = $station->{name};

	$self->{related_stations} = \@related_stations;





	for my $ref (@related_stations) {

	for my $ref (@related_stations) {

		my $ref_status = Travel::Status::DE::IRIS->new(

		my $ref_status = Travel::Status::DE::IRIS->new(
@@ -72,7 +71,7 @@ sub new { 




	my $dt_req = $self->{datetime}->clone;

	my $dt_req = $self->{datetime}->clone;

	for ( 1 .. 3 ) {

	for ( 1 .. 3 ) {

		$self->get_timetable( $self->{station_code}, $dt_req );

		$self->get_timetable( $self->{station}{uic}, $dt_req );

		$dt_req->add( hours => 1 );

		$dt_req->add( hours => 1 );

	}

	}
@@ -283,7 +282,7 @@ sub get_timetable { 
sub get_realtime {

sub get_realtime {

	my ($self) = @_;

	my ($self) = @_;





	my $eva = $self->{station_code};

	my $eva = $self->{station}{uic};

	my $res = $self->{user_agent}->get( $self->{iris_base} . "/fchg/${eva}" );

	my $res = $self->{user_agent}->get( $self->{iris_base} . "/fchg/${eva}" );





	if ( $self->{developer_mode} ) {

	if ( $self->{developer_mode} ) {
@@ -438,10 +437,16 @@ sub create_replacement_refs { 
	}

	}

}

}





sub station_code {

sub station {

	my ($self) = @_;

	my ($self) = @_;





	return $self->{station_code};

	return $self->{station};

}



sub related_stations {

	my ($self) = @_;



	return @{ $self->{related_stations} };

}

}





sub errstr {

sub errstr {