20 lines
444 B
Perl
20 lines
444 B
Perl
package Module::Build::Dumper;
|
|
use strict;
|
|
use vars qw($VERSION);
|
|
$VERSION = '0.34';
|
|
|
|
# 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;
|