Add Base URL and Version parameters to URA constructor

1 files changed, 30 insertions, 7 deletions

diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm
index c016089..8407dcd 100644
--- a/lib/Travel/Status/DE/URA.pm
+++ b/lib/Travel/Status/DE/URA.pm
@@ -21,6 +21,8 @@ sub new {
 	my $ua = LWP::UserAgent->new(%opt);
 
 	my $self = {
+		ura_base => $opt{ura_base} // 'http://ivu.aseag.de/interfaces/ura',
+		ura_version => $opt{ura_version} // '1',
 		full_routes => $opt{full_routes} // 0,
 		fuzzy       => $opt{fuzzy}       // 1,
 		hide_past   => $opt{hide_past}   // 1,
@@ -33,12 +35,14 @@ sub new {
 		},
 	};
 
+	$self->{ura_instant_url}
+	  = $self->{ura_base} . '/instant_V' . $self->{ura_version};
+
 	bless( $self, $class );
 
 	$ua->env_proxy;
 
-	my $response = $ua->post( 'http://ivu.aseag.de/interfaces/ura/instant_V1',
-		$self->{post} );
+	my $response = $ua->post( $self->{ura_instant_url}, $self->{post} );
 
 	if ( $response->is_error ) {
 		$self->{errstr} = $response->status_line;
@@ -237,7 +241,7 @@ realtime data providers (e.g. ASEAG)
     use Travel::Status::DE::URA;
 
     my $status = Travel::Status::DE::URA->new(
-        stop => 'Aachen Bushof'
+        stop => 'Bushof'
     );
 
     for my $d ($status->results) {
@@ -249,7 +253,7 @@ realtime data providers (e.g. ASEAG)
 
 =head1 VERSION
 
-version 1.04
+version 0.00
 
 =head1 DESCRIPTION
 
@@ -264,10 +268,29 @@ given place in real-time.  Schedule information is not included.
 =item my $status = Travel::Status::DE::URA->new(I<%opt>)
 
 Requests the departures as specified by I<opts> and returns a new
-Travel::Status::DE::USA object.
+Travel::Status::DE::URA object.
+
+Accepted parameters (all are optional):
+
+=over
+
+=item B<ura_base> => I<ura_base> (default C<< http://ivu.aseag.de/interfaces/ura >>)
+
+The URA base url.
+
+=item B<ura_version> => I<version> (default C<< 1 >>)
+
+The version, may be any string.
+
+=back
+
+The request URL is I<ura_base>/instant_VI<version>, so by default
+C<< http://ivu.aseag.de/interfaces/ura/instant_V1 >>.
 
-Accepts the same options is C<< $status->results >>. Options specified here
-can be overridden later, but may limit the set of available departures.
+Additionally, all options supported by C<< $status->results >> may be specified
+here, causing them to be used as defaults. Note that while they may be
+overridden later, they may limit the set of available departures requested from
+the server.
 
 
 =item $status->errstr