HAFAS/Message: expose message type (useful for filters)

derf · Nov 11, 2023 · 3d15025 · 3d15025
1 parent 5807b0b
commit 3d15025
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
@@ -619,6 +619,7 @@ sub add_message {
 
 	my $short = $json->{txtS};
 	my $text  = $json->{txtN};
+	my $type  = $json->{type};
 	my $code  = $json->{code};
 	my $prio  = $json->{prio};
 
@@ -643,6 +644,7 @@ sub add_message {
 	my $message = Travel::Status::DE::HAFAS::Message->new(
 		short     => $short,
 		text      => $text,
+		type      => $type,
 		code      => $code,
 		prio      => $prio,
 		is_him    => $is_him,

diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
@@ -9,7 +9,7 @@ use parent 'Class::Accessor';
 our $VERSION = '4.18';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
-	qw(short text code prio is_him ref_count));
+	qw(short type text code prio is_him ref_count));
 
 sub new {
 	my ( $obj, %conf ) = @_;