summaryrefslogtreecommitdiff
path: root/cpan/Module-Build/lib/Module/Build/Dumper.pm
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2009-09-26 14:30:03 +0100
committerNicholas Clark <nick@ccl4.org>2009-09-26 14:30:03 +0100
commit2ad3fd79fc9c36127e4a72f731e2784799de0b2f (patch)
tree874f3c108dbe0d7316a3bb459e2ff9f51a01f3e6 /cpan/Module-Build/lib/Module/Build/Dumper.pm
parent29557590c0a57f02189a28c27e881497f290abe8 (diff)
downloadperl-2ad3fd79fc9c36127e4a72f731e2784799de0b2f.tar.gz
Move Module::Build from ext/ to cpan/
Diffstat (limited to 'cpan/Module-Build/lib/Module/Build/Dumper.pm')
-rw-r--r--cpan/Module-Build/lib/Module/Build/Dumper.pm19
1 files changed, 19 insertions, 0 deletions
diff --git a/cpan/Module-Build/lib/Module/Build/Dumper.pm b/cpan/Module-Build/lib/Module/Build/Dumper.pm
new file mode 100644
index 0000000000..1cd8cd0e16
--- /dev/null
+++ b/cpan/Module-Build/lib/Module/Build/Dumper.pm
@@ -0,0 +1,19 @@
+package Module::Build::Dumper;
+use strict;
+use vars qw($VERSION);
+$VERSION = '0.35';
+
+# 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)->Dump()
+ . '$x; }')
+}
+
+1;