From 4c9056d8aa1f4e5c804b116252a7ed189085435b Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Sat, 10 Aug 2024 18:17:37 +0200 Subject: Release v6.04 --- lib/Travel/Status/DE/DeutscheBahn.pm | 4 ++-- lib/Travel/Status/DE/HAFAS.pm | 4 ++-- lib/Travel/Status/DE/HAFAS/Journey.pm | 6 +++--- lib/Travel/Status/DE/HAFAS/Location.pm | 4 ++-- lib/Travel/Status/DE/HAFAS/Message.pm | 4 ++-- lib/Travel/Status/DE/HAFAS/Polyline.pm | 2 +- lib/Travel/Status/DE/HAFAS/Product.pm | 4 ++-- lib/Travel/Status/DE/HAFAS/Stop.pm | 6 +++--- lib/Travel/Status/DE/HAFAS/StopFinder.pm | 4 ++-- 9 files changed, 19 insertions(+), 19 deletions(-) (limited to 'lib/Travel/Status') diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index bdf961d..aa41ce3 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -6,7 +6,7 @@ use 5.014; use parent 'Travel::Status::DE::HAFAS'; -our $VERSION = '6.03'; +our $VERSION = '6.04'; sub new { my ( $class, %opt ) = @_; @@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 80fe740..0abad7c 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -21,7 +21,7 @@ use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline); use Travel::Status::DE::HAFAS::Product; use Travel::Status::DE::HAFAS::StopFinder; -our $VERSION = '6.03'; +our $VERSION = '6.04'; # {{{ Endpoint Definition @@ -1269,7 +1269,7 @@ monitors =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm index 07325e5..756e193 100644 --- a/lib/Travel/Status/DE/HAFAS/Journey.pm +++ b/lib/Travel/Status/DE/HAFAS/Journey.pm @@ -11,7 +11,7 @@ use DateTime::Format::Strptime; use List::Util qw(any uniq); use Travel::Status::DE::HAFAS::Stop; -our $VERSION = '6.03'; +our $VERSION = '6.04'; Travel::Status::DE::HAFAS::Journey->mk_ro_accessors( qw(datetime sched_datetime rt_datetime tz_offset @@ -226,7 +226,7 @@ sub new { my $load = $tco_kv->{rRT} // $tco_kv->{r}; # BVG uses 11 .. 13 rather than 1 .. 4 - if ( $load > 10 ) { + if ( defined $load and $load > 10 ) { $load -= 10; } @@ -437,7 +437,7 @@ journey received by Travel::Status::DE::HAFAS =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Location.pm b/lib/Travel/Status/DE/HAFAS/Location.pm index fd25634..5ccb947 100644 --- a/lib/Travel/Status/DE/HAFAS/Location.pm +++ b/lib/Travel/Status/DE/HAFAS/Location.pm @@ -6,7 +6,7 @@ use 5.014; use parent 'Class::Accessor'; -our $VERSION = '6.03'; +our $VERSION = '6.04'; Travel::Status::DE::HAFAS::Location->mk_ro_accessors( qw(lid type name eva state lat lon distance_m weight)); @@ -57,7 +57,7 @@ Travel::Status::DE::HAFAS::Location - A single public transit location =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm index ae2fa71..af3d258 100644 --- a/lib/Travel/Status/DE/HAFAS/Message.pm +++ b/lib/Travel/Status/DE/HAFAS/Message.pm @@ -6,7 +6,7 @@ use 5.014; use parent 'Class::Accessor'; -our $VERSION = '6.03'; +our $VERSION = '6.04'; Travel::Status::DE::HAFAS::Message->mk_ro_accessors( qw(short type text code prio is_him ref_count)); @@ -69,7 +69,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message. =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm index d07844b..9921bd1 100644 --- a/lib/Travel/Status/DE/HAFAS/Polyline.pm +++ b/lib/Travel/Status/DE/HAFAS/Polyline.pm @@ -16,7 +16,7 @@ use 5.014; use parent 'Exporter'; our @EXPORT_OK = qw(decode_polyline); -our $VERSION = '6.03'; +our $VERSION = '6.04'; # Translated this php script # diff --git a/lib/Travel/Status/DE/HAFAS/Product.pm b/lib/Travel/Status/DE/HAFAS/Product.pm index cd85c16..270a173 100644 --- a/lib/Travel/Status/DE/HAFAS/Product.pm +++ b/lib/Travel/Status/DE/HAFAS/Product.pm @@ -8,7 +8,7 @@ use 5.014; use parent 'Class::Accessor'; -our $VERSION = '6.03'; +our $VERSION = '6.04'; Travel::Status::DE::HAFAS::Product->mk_ro_accessors( qw(class line_id line_no name number type type_long operator)); @@ -105,7 +105,7 @@ associated with a journey. =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm index 75560de..90eccce 100644 --- a/lib/Travel/Status/DE/HAFAS/Stop.pm +++ b/lib/Travel/Status/DE/HAFAS/Stop.pm @@ -8,7 +8,7 @@ use 5.014; use parent 'Class::Accessor'; -our $VERSION = '6.03'; +our $VERSION = '6.04'; Travel::Status::DE::HAFAS::Stop->mk_ro_accessors( qw(loc @@ -140,7 +140,7 @@ sub new { my $load = $tco_kv->{rRT} // $tco_kv->{r}; # BVG uses 11 .. 13 rather than 1 .. 4 - if ( $load > 10 ) { + if ( defined $load and $load > 10 ) { $load -= 10; } @@ -227,7 +227,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop. =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm index 10f48da..8af7485 100644 --- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm +++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm @@ -10,7 +10,7 @@ use Encode qw(decode); use JSON; use LWP::UserAgent; -our $VERSION = '6.03'; +our $VERSION = '6.04'; # {{{ Constructors @@ -180,7 +180,7 @@ finder services =head1 VERSION -version 6.03 +version 6.04 =head1 DESCRIPTION -- cgit v1.2.3