diff --git a/Changelog b/Changelog index 01e1b84670ecb65e08c9b3b076cbb83de596bc8b..20ae7d0871a2b0eba388d94dd060f12dee599bac 100644 --- a/Changelog +++ b/Changelog @@ -1,3 +1,8 @@ +git HEAD + + * DeutscheBahn->new: Add lwp_options parameter to pass options to + LWP::UserAgent->new + Travel::Status::DE::DeutscheBahn 1.03 - Tue Oct 21 2014 * Add primitive JSON serializer to Travel::Status::DE::DeutscheBahn::Result diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index b8918e6b922442f4ab26b1d948c64efd81f4bade..0a40b3bf55b931af3b74f77f1d7fdb6c8dc9069d 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -19,7 +19,9 @@ sub new { my $date = strftime( '%d.%m.%Y', localtime(time) ); my $time = strftime( '%H:%M', localtime(time) ); - my $ua = LWP::UserAgent->new(); + my %lwp_options = %{ $conf{lwp_options} // { timeout => 10 } }; + + my $ua = LWP::UserAgent->new(%lwp_options); $ua->env_proxy; @@ -326,6 +328,11 @@ Date to report for. Defaults to the current day. Set language for additional information. Accepted arguments: B<d>eutsch, B<e>nglish, B<i>talian, B<n> (dutch). +=item B<lwp_options> => I<\%hashref> + +Passed on to C<< LWP::UserAgent->new >>. Defaults to C<< { timeout => 10 } >>, +you can use an empty hashref to override it. + =item B<time> => I<hh>:I<mm> Time to report for. Defaults to now.