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