*
* Copyright (C) 2004 Merjis Ltd.
*
- * $Id: pl_WWW_Mechanize.ml,v 1.6 2005-08-16 15:39:22 rich Exp $
+ * $Id: pl_WWW_Mechanize.ml,v 1.7 2006-06-27 15:46:18 rich Exp $
*)
open Perl
let sv = call_method sv "base" [] in
string_of_sv sv
+ method url_abs =
+ let sv = call_method sv "url_abs" [] in
+ string_of_sv sv
+
end
(* XXX Should be able to pass args to constructor of LWP::UserAgent. *)