Added unit () arg to #delete method.
[perl4caml.git] / wrappers / pl_HTML_Parser.ml
1 (** Wrapper around Perl [HTML::Parser] class.
2   *
3   * Copyright (C) 2003 Merjis Ltd.
4   *
5   * $Id: pl_HTML_Parser.ml,v 1.4 2004-11-23 13:40:50 rich Exp $
6   *)
7
8 open Perl
9
10 let _ = eval "use HTML::Parser"
11
12 class html_parser sv =
13
14 object (self)
15
16   method parse_file filename =
17     call_method_void sv "parse_file" [sv_of_string filename]
18   method parse content =
19     call_method_void sv "parse" [sv_of_string content]
20   method eof =
21     call_method_void sv "eof" []
22   method delete () =
23     call_method_void sv "delete" []
24
25 end