Fixed History to work with ReadLineHistory

[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / DDS.pm

diff --git a/lib/Devel/REPL/Plugin/DDS.pm b/lib/Devel/REPL/Plugin/DDS.pm
index 20ead7e..6e01fe7 100644 (file)
--- a/lib/Devel/REPL/Plugin/DDS.pm
+++ b/lib/Devel/REPL/Plugin/DDS.pm
@@ -9,7 +9,7 @@ around 'format_result' => sub {
   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;
@@ -31,5 +31,23 @@ __END__
 
 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