diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm b/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm index b0c4638..e3bcbf4 100644 --- a/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm +++ b/lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm @@ -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) = @_; |