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 296     296   1921 use strict;
  296         884  
  296         8225  
3 296     296   1514 use warnings;
  296         556  
  296         13445  
4             our $VERSION = '0.42_35';
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 296     296   37299 use Data::Dumper;
  296         403050  
  296         36964  
11              
12             sub _data_dump {
13 115     115   466 my ($self, $data) = @_;
14 115         2265 return ("do{ my "
15             . Data::Dumper->new([$data],['x'])->Purity(1)->Terse(0)->Sortkeys(1)->Dump()
16             . '$x; }')
17             }
18              
19             1;