[p5sagit/p5-mst-13.2.git] / cpan / Module-Build / lib / Module / Build / Dumper.pm

package Module::Build::Dumper;
use strict;
use vars qw($VERSION);
$VERSION = '0.3603';

# 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;
Commit	Line	Data
7a827510	1	package Module::Build::Dumper;
738349a8	2	use strict;
738349a8	3	use vars qw($VERSION);
7dc9e1b4	4	$VERSION = '0.3603';
7a827510	5
	6	# This is just a split-out of a wrapper function to do Data::Dumper
	7	# stuff "the right way". See:
	8	# http://groups.google.com/group/perl.module.build/browse_thread/thread/c8065052b2e0d741
	9
	10	use Data::Dumper;
	11
	12	sub _data_dump {
	13	my ($self, $data) = @_;
	14	return ("do{ my "
738349a8	15	. Data::Dumper->new([$data],['x'])->Purity(1)->Terse(0)->Dump()
7a827510	16	. '$x; }')
	17	}
	18
	19	1;