summaryrefslogtreecommitdiff
path: root/lib/Travelynx
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx')
-rwxr-xr-xlib/Travelynx/Model/Journeys.pm20
1 files changed, 10 insertions, 10 deletions
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]
);
}