git.annexia.org
/
perl4caml.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2e1b60f
)
Added wrappers around other methods of WWW::Mechanize::Links.
author
rich
<rich>
Thu, 19 May 2005 11:10:18 +0000
(11:10 +0000)
committer
rich
<rich>
Thu, 19 May 2005 11:10:18 +0000
(11:10 +0000)
wrappers/pl_WWW_Mechanize.ml
patch
|
blob
|
history
diff --git
a/wrappers/pl_WWW_Mechanize.ml
b/wrappers/pl_WWW_Mechanize.ml
index
a666ecd
..
d5a2376
100644
(file)
--- a/
wrappers/pl_WWW_Mechanize.ml
+++ b/
wrappers/pl_WWW_Mechanize.ml
@@
-2,7
+2,7
@@
*
* Copyright (C) 2004 Merjis Ltd.
*
*
* Copyright (C) 2004 Merjis Ltd.
*
- * $Id: pl_WWW_Mechanize.ml,v 1.
4 2005-02-13 16:33:2
8 rich Exp $
+ * $Id: pl_WWW_Mechanize.ml,v 1.
5 2005-05-19 11:10:1
8 rich Exp $
*)
open Perl
*)
open Perl
@@
-187,9
+187,6
@@
object (self)
end
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)
and www_mechanize_link sv =
object (self)
@@
-200,6
+197,22
@@
object (self)
let sv = call_method sv "url" [] in
string_of_sv sv
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. *)
end
(* XXX Should be able to pass args to constructor of LWP::UserAgent. *)