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   1986 use strict;
  293         986  
  293         8366  
3 293     293   1475 use warnings;
  293         643  
  293         14061  
4             our $VERSION = '0.42_33';
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   39010 use Data::Dumper;
  293         418061  
  293         37022  
11              
12             sub _data_dump {
13 115     115   478 my ($self, $data) = @_;
14 115         2490 return ("do{ my "
15             . Data::Dumper->new([$data],['x'])->Purity(1)->Terse(0)->Sortkeys(1)->Dump()
16             . '$x; }')
17             }
18              
19             1;