3 package Devel::REPL::Plugin::DDS;
5 our $VERSION = '1.003027';
7 use Devel::REPL::Plugin;
8 use Data::Dump::Streamer ();
9 use namespace::autoclean;
11 around 'format_result' => sub {
16 if (@to_dump > 1 || ref $to_dump[0]) {
17 if (@to_dump == 1 && overload::Method($to_dump[0], '""')) {
20 my $dds = Data::Dump::Streamer->new;
21 $dds->Freezer(sub { "$_[0]"; });
37 Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
43 my $repl = Devel::REPL->new;
44 $repl->load_plugin('DDS');
47 # after you run re.pl: