From 3dc5575d5a9ff1adebe0dc39868631efa5eecd1f Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 23 Oct 2021 22:20:41 +0200
Subject: [PATCH] Switch from Geo::Distance (deprecated) to GIS::Distance

---
 cpanfile                        |  3 ++-
 lib/Travelynx/Model/Journeys.pm | 20 ++++++++++----------
 2 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/cpanfile b/cpanfile
index 2cabdda..fee1624 100644
--- a/cpanfile
+++ b/cpanfile
@@ -4,7 +4,8 @@ requires 'Crypt::Eksblowfish';
 requires 'DateTime';
 requires 'DateTime::Format::Strptime';
 requires 'Email::Sender::Simple';
-requires 'Geo::Distance';
+requires 'GIS::Distance';
+requires 'GIS::Distance::Fast';
 requires 'List::UtilsBy';
 requires 'MIME::Entity';
 requires 'Mojolicious';
diff --git a/lib/Travelynx/Model/Journeys.pm b/lib/Travelynx/Model/Journeys.pm
index a0981c6..2e97150 100755
--- a/lib/Travelynx/Model/Journeys.pm
+++ b/lib/Travelynx/Model/Journeys.pm
@@ -4,7 +4,7 @@ package Travelynx::Model::Journeys;
 #
 # SPDX-License-Identifier: AGPL-3.0-or-later
 
-use Geo::Distance;
+use GIS::Distance;
 use List::MoreUtils qw(after_incl before_incl);
 use Travel::Status::DE::IRIS::Stations;
 
@@ -955,7 +955,7 @@ sub get_travel_distance {
 	my $distance_intermediate = 0;
 	my $distance_beeline      = 0;
 	my $skipped               = 0;
-	my $geo                   = Geo::Distance->new();
+	my $geo                   = GIS::Distance->new();
 	my @stations              = map { $_->[0] } @{$route_ref};
 	my @route                 = after_incl { $_ eq $from } @stations;
 	@route = before_incl { $_ eq $to } @route;
@@ -976,8 +976,8 @@ sub get_travel_distance {
 
 		#lonlatlonlat
 		$distance_polyline
-		  += $geo->distance( 'kilometer', $prev_station->[0],
-			$prev_station->[1], $station->[0], $station->[1] );
+		  += $geo->distance_metal( $prev_station->[1],
+			$prev_station->[0], $station->[1], $station->[0] );
 		$prev_station = $station;
 	}
 
@@ -1005,8 +1005,8 @@ sub get_travel_distance {
 			}
 			if ( $#{$prev_station} >= 4 and $#{$station} >= 4 ) {
 				$distance_intermediate
-				  += $geo->distance( 'kilometer', $prev_station->[3],
-					$prev_station->[4], $station->[3], $station->[4] );
+				  += $geo->distance_metal( $prev_station->[4],
+					$prev_station->[3], $station->[4], $station->[3] );
 			}
 			else {
 				$skipped++;
@@ -1016,10 +1016,10 @@ sub get_travel_distance {
 	}
 
 	if ( $from_station_beeline and $to_station_beeline ) {
-		$distance_beeline = $geo->distance(
-			'kilometer',                $from_station_beeline->[3],
-			$from_station_beeline->[4], $to_station_beeline->[3],
-			$to_station_beeline->[4]
+		$distance_beeline = $geo->distance_metal(
+			$from_station_beeline->[4],
+			$from_station_beeline->[3], $to_station_beeline->[4],
+			$to_station_beeline->[3]
 		);
 	}