[Summary view] [Print] [Text view]

   1  package Module::Build::Dumper;
   2  
   3  # This is just a split-out of a wrapper function to do Data::Dumper
   4  # stuff "the right way".  See:
   5  # http://groups.google.com/group/perl.module.build/browse_thread/thread/c8065052b2e0d741
   6  
   7  use Data::Dumper;
   8  
   9  sub _data_dump {
  10    my ($self, $data) = @_;
  11    return ("do{ my "
  12        . Data::Dumper->new([$data],['x'])->Purity(1)->Dump()
  13        . '$x; }')
  14  }
  15  
  16  1;