File Coverage

blib/lib/Data/Object/Role/Output.pm
Criterion Covered Total %
statement 20 22 90.9
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 3 0.0
total 24 31 77.4


line stmt bran cond sub pod time code
1             # Output Data Type Role for Perl 5
2             package Data::Object::Role::Output;
3              
4 219     219   233866 use 5.010;
  219         718  
5 219     219   1061 use Data::Object::Role;
  219         384  
  219         1373  
6              
7 219     219   57732 use Data::Object 'detract_deep';
  219         396  
  219         58374  
8              
9             our $VERSION = '0.42'; # VERSION
10              
11             sub dump {
12 10     10 0 269383 require Data::Dumper;
13              
14 10         94518 local $Data::Dumper::Indent = 0;
15 10         30 local $Data::Dumper::Purity = 0;
16 10         26 local $Data::Dumper::Quotekeys = 0;
17              
18 10         27 local $Data::Dumper::Deepcopy = 1;
19 10         27 local $Data::Dumper::Deparse = 1;
20 10         19 local $Data::Dumper::Sortkeys = 1;
21 10         25 local $Data::Dumper::Terse = 1;
22 10         23 local $Data::Dumper::Useqq = 1;
23              
24 10         87 my $result = Data::Dumper::Dumper(detract_deep(shift));
25 10         3649 $result =~ s/^"|"$//g;
26              
27 10         76 return $result;
28             }
29              
30             sub print {
31 0     0 0   return CORE::print(&dump(shift));
32             }
33              
34             sub say {
35 0     0 0   return CORE::print(&dump(shift), "\n");
36             }
37              
38             1;