1 package Devel::REPL::Plugin::DDS;
3 use Devel::REPL::Plugin;
4 use Data::Dump::Streamer ();
6 around 'format_result' => sub {
11 if (@to_dump != 1 || ref $to_dump[0]) {
12 if (@to_dump == 1 && overload::Method($to_dump[0], '""')) {
15 my $dds = Data::Dump::Streamer->new;
16 $dds->Freezer(sub { "$_[0]"; });
32 Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
38 my $repl = Devel::REPL->new;
39 $repl->load_plugin('DDS');
42 # after you run re.pl: