+ method cookie_jar =
+ let sv = call_method sv "cookie_jar" [] in
+ new http_cookies sv
+ method set_cookie_jar (v : http_cookies) =
+ call_method_void sv "cookie_jar" [v#sv]
+ method set_cookie_jar_file filename =
+ let hv = hv_empty () in
+ hv_set hv "file" (sv_of_string filename);
+ call_method_void sv "cookie_jar" [hashref hv]
+ method requests_redirectable =
+ let sv = call_method sv "requests_redirectable" [] in
+ let av = deref_array sv in
+ List.map string_of_sv (list_of_av av)
+ method set_requests_redirectable methods =
+ let av = av_empty () in
+ List.iter (av_push av) (List.map sv_of_string methods);
+ call_method_void sv "requests_redirectable" [arrayref av]
+ method add_requests_redirectable method_ =
+ let sv = call_method sv "requests_redirectable" [] in
+ let av = deref_array sv in
+ av_push av (sv_of_string method_)