From 7bdbf7c77480d17d4a0dbfbc5272c2f54639a662 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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: 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.
-- 
cgit v1.2.3