Segment: Parse attributes and messages (c43c6bf0) · Commits · derf / Travel-Routing-DE-DBRIS

lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm

+40 −0

Original line number	Diff line number	Diff line
		@@ -109,6 +109,22 @@ sub new {
		);
		}

		for my $attr ( @{ $json->{verkehrsmittel}{zugattribute} // [] } ) {
		push( @{ $ref->{attributes} }, $attr );
		}

		for my $message ( @{ $json->{himMeldungen} // [] } ) {
		push( @{ $ref->{messages_him} }, $message );
		}

		for my $message ( @{ $json->{risNotizen} // [] } ) {
		push( @{ $ref->{messages_ris} }, $message );
		}

		for my $message ( @{ $json->{priorisierteMeldungen} // [] } ) {
		push( @{ $ref->{messages_prio} }, $message );
		}

		if ( $json->{verkehrsmittel}{typ} eq 'WALK' ) {
		$ref->{is_walk} = 1;
		$ref->{walk_name} = $json->{verkehrsmittel}{name};
		@@ -124,6 +140,30 @@ sub new {
		return $ref;
		}

		sub attributes {
		my ($self) = @_;

		return @{ $self->{attributes} // [] };
		}

		sub messages_him {
		my ($self) = @_;

		return @{ $self->{messages_him} // [] };
		}

		sub messages_ris {
		my ($self) = @_;

		return @{ $self->{messages_ris} // [] };
		}

		sub messages_prio {
		my ($self) = @_;

		return @{ $self->{messages_prio} // [] };
		}

		sub route {
		my ($self) = @_;