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 --- Changelog | 7 +++++++ bin/db-iris | 4 ++-- lib/Travel/Status/DE/IRIS.pm | 4 ++-- lib/Travel/Status/DE/IRIS/Result.pm | 23 +++++++++++++++-------- lib/Travel/Status/DE/IRIS/Stations.pm.PL | 4 ++-- 5 files changed, 28 insertions(+), 14 deletions(-) diff --git a/Changelog b/Changelog index f5ef0de..b42f580 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,10 @@ +Travel::Status::DE::IRIS 1.41 - Sun Dec 29 2019 + + * Result: Add "wing_of" accessor + * Follow name and DS100 change of Freiburg West (RFW) to + Freiburg-Landwasser (RFLW) + * Add more stations + Travel::Status::DE::IRIS 1.40 - Tue Dec 25 2019 * Incorporate the last few years' worth of station name changes diff --git a/bin/db-iris b/bin/db-iris index cf187d5..8b858c3 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -6,7 +6,7 @@ use utf8; no if $] >= 5.018, warnings => 'experimental::smartmatch'; -our $VERSION = '1.40'; +our $VERSION = '1.41'; use DateTime; use DateTime::Format::Strptime; @@ -533,7 +533,7 @@ B [B<-rx>] [B<-d> I] [B<-o> I] =head1 VERSION -version 1.40 +version 1.41 =head1 DESCRIPTION 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