diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Travel/Status/DE/EFA.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm index f8ea9f7..248f017 100644 --- a/lib/Travel/Status/DE/EFA.pm +++ b/lib/Travel/Status/DE/EFA.pm @@ -18,6 +18,11 @@ use XML::LibXML; sub new { my ( $class, %opt ) = @_; + $opt{timeout} //= 10; + if ( $opt{timeout} <= 0 ) { + delete $opt{timeout}; + } + my $ua = LWP::UserAgent->new(%opt); my @now = localtime( time() ); @@ -473,6 +478,11 @@ B<stop> (stop/station name). address / poi / stop name to list departures for. +=item B<timeout> => I<seconds> + +Request timeout, the argument is passed on to LWP::UserAgent(3pm). +Default: 10 seconds. Set to 0 or a negative value to disable it. + =back =item $status->errstr |