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.2 2005-03-31 13:46:32 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])
  27
  28 let dump_hv hv =
  29   dump (arrayref (av_of_sv_list [hashref hv]))
  30
  31 let dump_av av =
  32   dump (arrayref av)