From 7bdbf7c77480d17d4a0dbfbc5272c2f54639a662 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 1 May 2015 20:33:00 +0200 Subject: ->new: add lwp_options parameter --- lib/Travel/Status/DE/DeutscheBahn.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index b8918e6..0a40b3b 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: Beutsch, Bnglish, Btalian, B (dutch). +=item B => 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