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; |