1 package Devel::REPL::Plugin::Nopaste;
3 use Devel::REPL::Plugin;
4 use MooseX::AttributeHelpers;
5 use namespace::clean -except => [ 'meta' ];
9 $self->load_plugin('Turtles');
12 has complete_session => (
13 metaclass => 'String',
19 append => 'add_to_session',
27 # prepend each line with #
30 $self->add_to_session($line . "\n");
38 my @ret = $orig->($self, $line, @_);
40 $self->add_to_session(join("\n", @ret) . "\n\n");
49 return App::Nopaste->nopaste(
50 text => $self->complete_session,
51 desc => "Devel::REPL session",
62 Devel::REPL::Plugin::Nopaste - #nopaste to upload session's input and output
66 Shawn M Moore, C<< <sartak at gmail dot com> >>