diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-09-26 14:30:03 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-09-26 14:30:03 +0100 |
commit | 2ad3fd79fc9c36127e4a72f731e2784799de0b2f (patch) | |
tree | 874f3c108dbe0d7316a3bb459e2ff9f51a01f3e6 /cpan/Module-Build/lib/Module/Build/Dumper.pm | |
parent | 29557590c0a57f02189a28c27e881497f290abe8 (diff) | |
download | perl-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.pm | 19 |
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; |