From: rich Date: Thu, 19 May 2005 11:10:18 +0000 (+0000) Subject: Added wrappers around other methods of WWW::Mechanize::Links. X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=caee309c74f84ec2f76f64e1f416536f58fd720f;p=perl4caml.git Added wrappers around other methods of WWW::Mechanize::Links. --- diff --git a/wrappers/pl_WWW_Mechanize.ml b/wrappers/pl_WWW_Mechanize.ml index a666ecd..d5a2376 100644 --- a/wrappers/pl_WWW_Mechanize.ml +++ b/wrappers/pl_WWW_Mechanize.ml @@ -2,7 +2,7 @@ * * Copyright (C) 2004 Merjis Ltd. * - * $Id: pl_WWW_Mechanize.ml,v 1.4 2005-02-13 16:33:28 rich Exp $ + * $Id: pl_WWW_Mechanize.ml,v 1.5 2005-05-19 11:10:18 rich Exp $ *) open Perl @@ -187,9 +187,6 @@ object (self) end -(* Not much documentation exists for the WWW::Mechanize::Link class. As far - * as I can see, the only documented method is #url to return the URL. XXX - *) and www_mechanize_link sv = object (self) @@ -200,6 +197,22 @@ object (self) let sv = call_method sv "url" [] in string_of_sv sv + method text = + let sv = call_method sv "text" [] in + string_of_sv sv + + method name = + let sv = call_method sv "name" [] in + string_of_sv sv + + method tag = + let sv = call_method sv "tag" [] in + string_of_sv sv + + method base = + let sv = call_method sv "base" [] in + string_of_sv sv + end (* XXX Should be able to pass args to constructor of LWP::UserAgent. *)