X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FNopaste.pm;h=283fdfb42f9ce14ea471dedfe45b10bb4457c84d;hp=bff581aebbb6077778816894055f919789f623e2;hb=a478012dca1a93094781d2df758c4f7dc8d0a87e;hpb=3a40071593734bf02e987a076b6408095ecfad41

diff --git a/lib/Devel/REPL/Plugin/Nopaste.pm b/lib/Devel/REPL/Plugin/Nopaste.pm
index bff581a..283fdfb 100644
--- a/lib/Devel/REPL/Plugin/Nopaste.pm
+++ b/lib/Devel/REPL/Plugin/Nopaste.pm
@@ -3,6 +3,7 @@ package Devel::REPL::Plugin::Nopaste;
 use Devel::REPL::Plugin;
 use MooseX::AttributeHelpers;
 use namespace::clean -except => [ 'meta' ];
+use Scalar::Util qw(blessed);
 
 sub BEFORE_PLUGIN {
     my $self = shift;
@@ -13,6 +14,7 @@ has complete_session => (
     metaclass => 'String',
     is        => 'rw',
     isa       => 'Str',
+    lazy      => 1,
     default   => '',
     provides  => {
         append => 'add_to_session',
@@ -35,8 +37,17 @@ around eval => sub {
     my $line = shift;
 
     my @ret = $orig->($self, $line, @_);
-
-    $self->add_to_session(join("\n", @ret) . "\n\n");
+    my @ret_as_str = map {
+        if (!defined($_)) {
+            '';
+        } elsif (blessed($_) && $_->can('stringify')) {
+            $_->stringify();
+        } else {
+            $_;
+        }
+    } @ret;
+
+    $self->add_to_session(join("\n", @ret_as_str) . "\n\n");
 
     return @ret;
 };