From 467298a34215401cdcbb1dded51bc2aba5f1f41c Mon Sep 17 00:00:00 2001 From: Lorry Tar Creator Date: Thu, 11 Jun 2015 22:32:06 +0000 Subject: Module-Build-0.4214 --- lib/Module/Build/Dumper.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 lib/Module/Build/Dumper.pm (limited to 'lib/Module/Build/Dumper.pm') diff --git a/lib/Module/Build/Dumper.pm b/lib/Module/Build/Dumper.pm new file mode 100644 index 0000000..af4994f --- /dev/null +++ b/lib/Module/Build/Dumper.pm @@ -0,0 +1,19 @@ +package Module::Build::Dumper; +use strict; +use warnings; +our $VERSION = '0.4214'; + +# This is just a split-out of a wrapper function to do Data::Dumper +# stuff "the right way". See: +# http://groups.google.com/group/perl.module.build/browse_thread/thread/c8065052b2e0d741 + +use Data::Dumper; + +sub _data_dump { + my ($self, $data) = @_; + return ("do{ my " + . Data::Dumper->new([$data],['x'])->Purity(1)->Terse(0)->Sortkeys(1)->Dump() + . '$x; }') +} + +1; -- cgit v1.2.1