1 package Devel::REPL::Plugin::DDC;
3 use Devel::REPL::Plugin;
4 use Data::Dumper::Concise ();
6 around 'format_result' => sub {
9 my $to_dump = (@_ > 1) ? [@_] : $_[0];
12 if (overload::Method($to_dump, '""')) {
15 $out = Data::Dumper::Concise::Dumper($to_dump);
29 Devel::REPL::Plugin::DDC - Format results with Data::Dumper::Concise
35 my $repl = Devel::REPL->new;
36 $repl->load_plugin('DDS');
39 # after you run re.pl: