File Coverage

blib/lib/Module/Build/Dumper.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Module::Build::Dumper;
2 293     293   1996 use strict;
  293         592  
  293         9064  
3 293     293   1687 use warnings;
  293         757  
  293         15351  
4             our $VERSION = '0.4234';
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 293     293   42890 use Data::Dumper;
  293         424196  
  293         39221  
11              
12             sub _data_dump {
13 115     115   569 my ($self, $data) = @_;
14 115         3366 return ("do{ my "
15             . Data::Dumper->new([$data],['x'])->Purity(1)->Terse(0)->Sortkeys(1)->Dump()
16             . '$x; }')
17             }
18              
19             1;