summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-12-10 13:36:47 +0100
committerBirte Kristina Friesel <derf@finalrewind.org>2023-12-10 13:36:47 +0100
commit1a950109b9dc78c0ca3a44907b4978da7bfa26b0 (patch)
tree535d8a783d842894f490bda8b8ae02c8e72729c0 /lib/Travel/Status/DE
parentaf2b2b2c32312cd7d2f848dbcef8be7d79f8d4b9 (diff)
GIS::Distance has been packaged for Debian trixie; drop Geo::Distance support
Diffstat (limited to 'lib/Travel/Status/DE')
-rw-r--r--lib/Travel/Status/DE/IRIS/Stations.pm.PL36
1 files changed, 4 insertions, 32 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm.PL b/lib/Travel/Status/DE/IRIS/Stations.pm.PL
index 06ff49c..021ab21 100644
--- a/lib/Travel/Status/DE/IRIS/Stations.pm.PL
+++ b/lib/Travel/Status/DE/IRIS/Stations.pm.PL
@@ -26,16 +26,7 @@ use warnings;
use 5.014;
use utf8;
-EOF
-
-if ($ENV{DB_IRIS_DEB_BUILD}) {
- $buf .= "use Geo::Distance;\n"
-}
-else {
- $buf .= "use GIS::Distance;\n";
-}
-
-$buf .= <<'EOF';
+use GIS::Distance;
use List::Util qw(min);
use List::UtilsBy qw(uniq_by);
use List::MoreUtils qw(firstval pairwise);
@@ -130,16 +121,7 @@ sub get_station_by_location {
$num_matches //= 10;
-EOF
-
-if ($ENV{DB_IRIS_DEB_BUILD}) {
- $buf .= "\tmy \$dist = Geo::Distance->new();\n";
-}
-else {
- $buf .= "\tmy \$dist = GIS::Distance->new();\n";
-}
-
-$buf .= <<'EOF';
+ my $dist = GIS::Distance->new();
# we only use geolocations inside germany.
# For these, this fast preprocessing step will let through all
@@ -150,18 +132,8 @@ $buf .= <<'EOF';
and abs( $_->[4] - $lat )
< 1
} @stations;
- my @distances
-EOF
-
-if ($ENV{DB_IRIS_DEB_BUILD}) {
- $buf .= '= map { $dist->distance( \'kilometer\', $lon, $lat, $_->[3], $_->[4] ) }';
-}
-else {
- $buf .= '= map { $dist->distance_metal( $lat, $lon, $_->[4], $_->[3] ) }';
-}
-
-$buf .= <<'EOF';
- @candidates;
+ my @distances = map
+ { $dist->distance_metal( $lat, $lon, $_->[4], $_->[3] ) } @candidates;
my @station_map = pairwise { [ $a, $b ] } @candidates, @distances;
@station_map = sort { $a->[1] <=> $b->[1] } @station_map;