diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2013-12-20 11:10:13 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2013-12-20 11:10:13 +0100 |
| commit | ce5dc176beb29b0a0ccc6078ee03f5173eea52ed (patch) | |
| tree | 285a3ebac32cc7ae2a979ba3c6cf0df21161caf9 /lib/Travel/Status/DE/URA.pm | |
| parent | 7b781be7ae6bbe0dfe617e2d6a6f180f64e283a9 (diff) | |
use Travel::Status::DE::URA for implementation, ::ASEAG for ASEAG URLs
Diffstat (limited to 'lib/Travel/Status/DE/URA.pm')
| -rw-r--r-- | lib/Travel/Status/DE/URA.pm | 14 |
1 files changed, 10 insertions, 4 deletions
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' ); |