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

new_p: support journey argument

parent 717b0172

lib/Travel/Status/DE/HAFAS.pm

+15 −5
Original line number Diff line number Diff line
@@ -188,7 +188,7 @@ sub new { 
	}



	if ( not $conf{station} and not $conf{journey} ) {

		confess('You need to specify a station');

		confess('station or journey must be specified');

	}



	if ( not defined $service ) {
@@ -363,8 +363,8 @@ sub new_p { 
	my ( $obj, %conf ) = @_;

	my $promise = $conf{promise}->new;



	if ( not $conf{station} ) {

		return $promise->reject('station flag must be passed');

	if ( not $conf{station} and not $conf{journey} ) {

		return $promise->reject('station or journey flag must be passed');

	}



	my $self = $obj->new( %conf, async => 1 );
@@ -375,8 +375,18 @@ sub new_p { 
			my ($content) = @_;

			$self->{raw_json} = $self->{json}->decode($content);

			$self->check_mgate;

			if ( $conf{journey} ) {

				$self->parse_journey;

			}

			else {

				$self->parse_board;

			}

			if ( $self->errstr ) {

				$promise->reject( $self->errstr );

			}

			else {

				$promise->resolve($self);

			}

			return;

		}

	)->catch(