Commit | Line | Data |
---|---|---|
7a827510 | 1 | package 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 | ||
7 | use Data::Dumper; | |
8 | ||
9 | sub _data_dump { | |
10 | my ($self, $data) = @_; | |
11 | return ("do{ my " | |
12 | . Data::Dumper->new([$data],['x'])->Purity(1)->Dump() | |
13 | . '$x; }') | |
14 | } | |
15 | ||
16 | 1; |