Commit 7bdbf7c7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

->new: add lwp_options parameter

parent 43e06258

Changelog

+5 −0
Original line number Diff line number Diff line 
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

lib/Travel/Status/DE/DeutscheBahn.pm

+8 −1
Original line number Diff line number Diff line
@@ -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.