diff options
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r-- | lib/Travel/Status/DE/HAFAS.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Journey.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Location.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Message.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Polyline.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Product.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Services.pm.PL | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/Stop.pm | 10 | ||||
-rw-r--r-- | lib/Travel/Status/DE/HAFAS/StopFinder.pm | 4 |
9 files changed, 20 insertions, 18 deletions
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm index 2eb3dcf..fae1ed0 100644 --- a/lib/Travel/Status/DE/HAFAS.pm +++ b/lib/Travel/Status/DE/HAFAS.pm @@ -23,7 +23,7 @@ use Travel::Status::DE::HAFAS::Product; use Travel::Status::DE::HAFAS::Services; use Travel::Status::DE::HAFAS::StopFinder; -our $VERSION = '6.19'; +our $VERSION = '6.20'; # {{{ Endpoint Definition @@ -913,7 +913,7 @@ monitors =head1 VERSION -version 6.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm index 4ee05d8..ad2d67e 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.19'; +our $VERSION = '6.20'; Travel::Status::DE::HAFAS::Journey->mk_ro_accessors( qw(datetime sched_datetime rt_datetime tz_offset @@ -437,7 +437,7 @@ journey received by Travel::Status::DE::HAFAS =head1 VERSION -version 6.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Location.pm b/lib/Travel/Status/DE/HAFAS/Location.pm index c53e5b2..13837d8 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.19'; +our $VERSION = '6.20'; 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.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm index 3b951f0..a63dfec 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.19'; +our $VERSION = '6.20'; 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.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm index b3cd07e..8338489 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.19'; +our $VERSION = '6.20'; # Translated this php script # <http://unitstep.net/blog/2008/08/02/decoding-google-maps-encoded-polylines-using-php/> diff --git a/lib/Travel/Status/DE/HAFAS/Product.pm b/lib/Travel/Status/DE/HAFAS/Product.pm index 833a93c..ff3fbfb 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.19'; +our $VERSION = '6.20'; 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.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/Services.pm.PL b/lib/Travel/Status/DE/HAFAS/Services.pm.PL index 5b0d956..7740d29 100644 --- a/lib/Travel/Status/DE/HAFAS/Services.pm.PL +++ b/lib/Travel/Status/DE/HAFAS/Services.pm.PL @@ -242,7 +242,7 @@ use warnings; use 5.014; use utf8; -our $VERSION = '6.19'; +our $VERSION = '6.20'; # Most of these have been adapted from # <https://github.com/public-transport/transport-apis> and diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm index 48b256e..acee919 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.19'; +our $VERSION = '6.20'; Travel::Status::DE::HAFAS::Stop->mk_ro_accessors( qw(loc @@ -41,8 +41,10 @@ sub new { # dIn. / aOut. -> may passengers enter / exit the train? - my $sched_platform = $stop->{aPlatfS} // $stop->{dPlatfS}; - my $rt_platform = $stop->{aPlatfR} // $stop->{dPlatfR}; + my $sched_platform = $stop->{aPlatfS} // $stop->{dPlatfS} + // $stop->{aPltfS}{txt} // $stop->{dPltfS}{txt}; + my $rt_platform = $stop->{aPlatfR} // $stop->{dPlatfR} + // $stop->{aPltfR}{txt} // $stop->{dPltfR}{txt}; my $changed_platform = $stop->{aPlatfCh} // $stop->{dPlatfCh}; my $arr_cancelled = $stop->{aCncl}; @@ -227,7 +229,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop. =head1 VERSION -version 6.19 +version 6.20 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm index 802b78f..4085779 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.19'; +our $VERSION = '6.20'; # {{{ Constructors @@ -180,7 +180,7 @@ finder services =head1 VERSION -version 6.19 +version 6.20 =head1 DESCRIPTION |