Commit | Line | Data |
---|---|---|
950232b2 | 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; |