From bd9de4e5306075d859008cb2abea643caac58c8c Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 29 Dec 2019 10:45:31 +0100 Subject: release v1.41 --- lib/Travel/Status/DE/IRIS.pm | 4 ++-- lib/Travel/Status/DE/IRIS/Result.pm | 23 +++++++++++++++-------- lib/Travel/Status/DE/IRIS/Stations.pm.PL | 4 ++-- 3 files changed, 19 insertions(+), 12 deletions(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm index ce39da1..939601e 100644 --- a/lib/Travel/Status/DE/IRIS.pm +++ b/lib/Travel/Status/DE/IRIS.pm @@ -6,7 +6,7 @@ use 5.014; no if $] >= 5.018, warnings => 'experimental::smartmatch'; -our $VERSION = '1.40'; +our $VERSION = '1.41'; use Carp qw(confess cluck); use DateTime; @@ -630,7 +630,7 @@ Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors. =head1 VERSION -version 1.40 +version 1.41 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index c44df8c..c262e71 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -15,7 +15,7 @@ use List::Compare; use List::MoreUtils qw(none uniq firstval); use Scalar::Util qw(weaken); -our $VERSION = '1.40'; +our $VERSION = '1.41'; my %translation = ( 2 => 'Polizeiliche Ermittlung', @@ -828,7 +828,7 @@ arrival/departure received by Travel::Status::DE::IRIS =head1 VERSION -version 1.40 +version 1.41 =head1 DESCRIPTION @@ -870,9 +870,9 @@ True if the arrival at this stop has been cancelled. =item $result->arrival_wings -Returns a list of references to Travel::Status::DE::IRIS::Result(3pm) objects -which are coupled to this train on arrival. Returns nothing (false / empty list) -otherwise. +Returns a list of weakened references to Travel::Status::DE::IRIS::Result(3pm) +objects which are coupled to this train on arrival. Returns nothing (false / +empty list) otherwise. =item $result->canceled_stops @@ -940,9 +940,9 @@ terminates here and does not continue its scheduled journey. =item $result->departure_wings -Returns a list of references to Travel::Status::DE::IRIS::Result(3pm) objects -which are coupled to this train on departure. Returns nothing (false / empty -list) otherwise. +Returns a list of weakened references to Travel::Status::DE::IRIS::Result(3pm) +objects which are coupled to this train on departure. Returns nothing (false / +empty list) otherwise. =item $result->destination @@ -1182,6 +1182,13 @@ Number of this train, unique per day. E.g. C<< 2225 >> for C<< IC 2225 >>. Type of this train, e.g. C<< S >> for S-Bahn, C<< RE >> for Regional-Express, C<< ICE >> for InterCity-Express. +=item $result->wing_of + +If B is true, returns a weakened reference to the +Travel::Status::DE::IRIS::Result(3pm) object which this train is a wing of. So +far, it seems that a train is either not a wing or a wing of exactly one other +train. Returns undef if B is false. + =back =head2 INTERNAL diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm.PL b/lib/Travel/Status/DE/IRIS/Stations.pm.PL index af0e339..758e236 100644 --- a/lib/Travel/Status/DE/IRIS/Stations.pm.PL +++ b/lib/Travel/Status/DE/IRIS/Stations.pm.PL @@ -35,7 +35,7 @@ use Text::LevenshteinXS qw(distance); # TODO switch to Text::Levenshtein::XS once AUR/Debian packages become available -our $VERSION = '1.40'; +our $VERSION = '1.41'; # Automatically generated, see share/stations.json my @stations = ( @@ -184,7 +184,7 @@ Travel::Status::DE::IRIS::Stations - Station name to station code mapping =head1 VERSION -version 1.40 +version 1.41 =head1 DESCRIPTION -- cgit v1.2.3