1 package Devel::REPL::Plugin::Nopaste;
4 use MooseX::AttributeHelpers;
5 use namespace::clean -except => [ 'meta' ];
7 with 'Devel::REPL::Plugin::Turtles';
9 has complete_session => (
10 metaclass => 'String',
15 append => 'add_to_session',
24 my @ret = $orig->($self, $line, @_);
26 # prepend each line with #
29 my $step = $line . "\n"
33 $self->add_to_session($step);
42 return App::Nopaste->nopaste(
43 text => $self->complete_session,
44 desc => "Devel::REPL session",