This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Module::Build 0.2808_01
[perl5.git] / lib / Module / Build / Dumper.pm
CommitLineData
7a827510
RGS
1package 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
7use Data::Dumper;
8
9sub _data_dump {
10 my ($self, $data) = @_;
11 return ("do{ my "
12 . Data::Dumper->new([$data],['x'])->Purity(1)->Dump()
13 . '$x; }')
14}
15
161;