From ce5dc176beb29b0a0ccc6078ee03f5173eea52ed Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 20 Dec 2013 11:10:13 +0100 Subject: use Travel::Status::DE::URA for implementation, ::ASEAG for ASEAG URLs --- lib/Travel/Status/DE/URA.pm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'lib/Travel/Status/DE/URA.pm') diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 8407dcd..5dbaff6 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -20,12 +20,16 @@ sub new { my $ua = LWP::UserAgent->new(%opt); + if ( not( $opt{ura_base} and $opt{ura_version} ) ) { + confess('ura_base and ura_version are mandatory'); + } + my $self = { - ura_base => $opt{ura_base} // 'http://ivu.aseag.de/interfaces/ura', - ura_version => $opt{ura_version} // '1', + ura_base => $opt{ura_base}, + ura_version => $opt{ura_version}, full_routes => $opt{full_routes} // 0, - fuzzy => $opt{fuzzy} // 1, - hide_past => $opt{hide_past} // 1, + fuzzy => $opt{fuzzy} // 1, + hide_past => $opt{hide_past} // 1, stop => $opt{stop}, via => $opt{via}, post => { @@ -241,6 +245,8 @@ realtime data providers (e.g. ASEAG) use Travel::Status::DE::URA; my $status = Travel::Status::DE::URA->new( + ura_base => 'http://ivu.aseag.de/interfaces/ura', + ura_version => '1', stop => 'Bushof' ); -- cgit v1.2.3