Unverified Commit 1c82ee17 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Replace built-in Location package with Travel::Status::DE::HAFAS::Location

parent cfb45724

Build.PL

+16 −15
Original line number Diff line number Diff line
@@ -31,6 +31,7 @@ Module::Build->new( 
		'LWP::UserAgent'                      => 0,

		'LWP::Protocol::https'                => 0,

		'Travel::Status::DE::HAFAS'           => 0,

		'Travel::Status::DE::HAFAS::Location' => '5.00',

		'Travel::Status::DE::HAFAS::Message'  => '4.19',

	},

	script_files  => 'bin/',

cpanfile

+2 −1
Original line number Diff line number Diff line
@@ -10,6 +10,7 @@ requires 'List::Util'; 
requires 'LWP::UserAgent';

requires 'LWP::Protocol::https';

requires 'Travel::Status::DE::HAFAS';

requires 'Travel::Status::DE::HAFAS::Location', '5.00';

requires 'Travel::Status::DE::HAFAS::Message',  '4.19';



on test => sub {

lib/Travel/Routing/DE/HAFAS.pm

+2 −2
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ use Encode qw(decode encode); 
use JSON;

use LWP::UserAgent;

use Travel::Routing::DE::HAFAS::Connection;

use Travel::Routing::DE::HAFAS::Location;

use Travel::Status::DE::HAFAS::Location;

use Travel::Status::DE::HAFAS::Message;



our $VERSION = '0.01';
@@ -517,7 +517,7 @@ sub check_mgate { 
sub parse_trips {

	my ($self) = @_;



	my @locL = map { Travel::Routing::DE::HAFAS::Location->new( loc => $_ ) }

	my @locL = map { Travel::Status::DE::HAFAS::Location->new( loc => $_ ) }

	  @{ $self->{raw_json}{svcResL}[0]{res}{common}{locL} // [] };



	my @conL = @{ $self->{raw_json}{svcResL}[0]{res}{outConL} // [] };

lib/Travel/Routing/DE/HAFAS/Connection.pm

+2 −2
Original line number Diff line number Diff line
@@ -208,7 +208,7 @@ if available, falls back to schedule data otherwise. 


=item $connection->arr_loc



Travel::Routing::DE::HAFAS::Location(3pm) object describing the arrival stop.

Travel::Status::DE::HAFAS::Location(3pm) object describing the arrival stop.



=item $connection->arr_platform
@@ -230,7 +230,7 @@ data if available, falls back to schedule data otherwise. 


=item $connection->dep_loc



Travel::Routing::DE::HAFAS::Location(3pm) object describing the departure stop.

Travel::Status::DE::HAFAS::Location(3pm) object describing the departure stop.



=item $connection->dep_platform

lib/Travel/Routing/DE/HAFAS/Connection/Section.pm

+2 −2
Original line number Diff line number Diff line
@@ -231,7 +231,7 @@ Arrival delay in minutes. Undef if unknown. 


=item $section->arr_loc



Travel::Routing::DE::HAFAS::Location(3pm) object describing the arrival stop.

Travel::Status::DE::HAFAS::Location(3pm) object describing the arrival stop.



=item $section->arr_platform
@@ -253,7 +253,7 @@ Departure dlay in minutes. Undef if unknown. 


=item $section->dep_loc



Travel::Routing::DE::HAFAS::Location(3pm) object describing the departure stop.

Travel::Status::DE::HAFAS::Location(3pm) object describing the departure stop.



=item $section->dep_platform