git.maemo.org Git - dh-make-perl/blob - dev/i386/libmodule-build-perl/libmodule-build-perl-0.2808.01/lib/Module/Build/Dumper.pm

   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;