diff options
Diffstat (limited to 'lib/Travel/Status/DE/DBRIS/Location.pm')
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Location.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/Location.pm b/lib/Travel/Status/DE/DBRIS/Location.pm index 580291f..e607ce1 100644 --- a/lib/Travel/Status/DE/DBRIS/Location.pm +++ b/lib/Travel/Status/DE/DBRIS/Location.pm @@ -6,7 +6,7 @@ use 5.020; use parent 'Class::Accessor'; -our $VERSION = '0.13'; +our $VERSION = '0.14'; Travel::Status::DE::DBRIS::Location->mk_ro_accessors( qw(eva id lat lon name products type is_cancelled is_additional is_separation display_priority @@ -97,6 +97,9 @@ sub new { if ( $message->{type} and $message->{type} eq 'HALT_AUSFALL' ) { $ref->{is_cancelled} = 1; } + elsif ( $message->{text} and $message->{text} eq 'Zusatzhalt' ) { + $ref->{is_additional} = 1; + } push( @{ $ref->{messages} }, $message ); } |