1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
package Data::Printer::Filter::CODE;
use strict;
use warnings;
use Data::Printer::Filter;
use Data::Printer::Common;
use Scalar::Util ();
use Fcntl;
filter 'CODE' => \&parse;
sub parse {
my ($subref, $ddp) = @_;
my $string = $ddp->deparse ? _deparse($subref, $ddp) : 'sub { ... }';
return $ddp->maybe_colorize($string, 'code');
};
#######################################
### Private auxiliary helpers below ###
#######################################
sub _deparse {
my ($subref, $ddp) = @_;
require B::Deparse;
# FIXME: line below breaks encapsulation on Data::Printer::Object
my $i = $ddp->{indent} + $ddp->{_array_padding};
my $deparseopts = ["-sCi${i}v'Useless const omitted'"];
my $sub = 'sub ' . B::Deparse->new($deparseopts)->coderef2text($subref);
my $pad = $ddp->newline;
$sub =~ s/\n/$pad/gse;
return $sub;
}
1;
|
