3 package Devel::REPL::Plugin::DDS;
5 use Devel::REPL::Plugin;
6 use Data::Dump::Streamer ();
7 use namespace::autoclean;
9 around 'format_result' => sub {
14 if (@to_dump > 1 || ref $to_dump[0]) {
15 if (@to_dump == 1 && overload::Method($to_dump[0], '""')) {
18 my $dds = Data::Dump::Streamer->new;
19 $dds->Freezer(sub { "$_[0]"; });
35 Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
41 my $repl = Devel::REPL->new;
42 $repl->load_plugin('DDS');
45 # after you run re.pl: