+ 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]