wrappers/pl_Data_Dumper.ml

   1 (** Wrapper around Perl [Data::Dumper] class.
   2   *
   3   * Copyright (C) 2005 Merjis Ltd.
   4   *
   5   * $Id: pl_Data_Dumper.ml,v 1.1 2005-01-31 15:23:23 rich Exp $
   6   *)
   7
   8 open Perl
   9
  10 let _ = eval "use Data::Dumper"
  11
  12 class data_dumper (sv : sv) =
  13
  14 object (self)
  15   method sv = sv
  16
  17
  18
  19 end
  20
  21 let new_ r =
  22   let sv = call_class_method "Data::Dumper" "new" [r] in
  23   new data_dumper sv
  24
  25 let dump r =
  26   string_of_sv (call_class_method "Data::Dumper" "Dump" [r])