summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Travel/Routing/DE/DBRIS/Connection/Segment.pm40
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) = @_;