projects
/
p5sagit/Devel-REPL.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Add MultiLine::PPI to the default profile
[p5sagit/Devel-REPL.git]
/
lib
/
Devel
/
REPL
/
Plugin
/
DDS.pm
1
package Devel::REPL::Plugin::DDS;
2
3
use Moose::Role;
4
use Data::Dump::Streamer ();
5
6
around 'print' => sub {
7
my $orig = shift;
8
my $self = shift;
9
my $to_dump = (@_ > 1) ? [@_] : $_[0];
10
my $out;
11
if (ref $to_dump) {
12
my $dds = Data::Dump::Streamer->new;
13
$dds->Freezer(sub { "$_[0]"; });
14
$dds->Data($to_dump);
15
$out = $dds->Out;
16
} else {
17
$out = $to_dump;
18
}
19
$self->$orig($out);
20
};
21
22
1;