my $to_dump = (@_ > 1) ? [@_] : $_[0];
my $out;
if (ref $to_dump) {
- if (overload::Method($to_dump, '""') {
+ if (overload::Method($to_dump, '""')) {
$out = "$to_dump";
} else {
my $dds = Data::Dump::Streamer->new;
Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
+=head1 SYNOPSIS
+
+ # in your re.pl file:
+ use Devel::REPL;
+ my $repl = Devel::REPL->new;
+ $repl->load_plugin('DDS');
+ $repl->run;
+
+ # after you run re.pl:
+ $ map $_*2, ( 1,2,3 )
+ $ARRAY1 = [
+ 2,
+ 4,
+ 6
+ ];
+
+ $
+
=cut