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=2a880044b990f641427d3556039736e8bd4ab0d9;hp=2d9b8fcde7f8b3b8459f679d582b7304c2015644;hb=8d5343b5f1fb9e3b33d1d36e96aabc94e29a822b;hpb=76cd9acd4630d77ac67967cefcea99ec9591e1be diff --git a/lib/Devel/REPL/Plugin/Nopaste.pm b/lib/Devel/REPL/Plugin/Nopaste.pm index 2d9b8fc..2a88004 100644 --- a/lib/Devel/REPL/Plugin/Nopaste.pm +++ b/lib/Devel/REPL/Plugin/Nopaste.pm @@ -1,9 +1,10 @@ +use strict; +use warnings; package Devel::REPL::Plugin::Nopaste; use Devel::REPL::Plugin; -use MooseX::AttributeHelpers; use Moose::Util::TypeConstraints; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; use Scalar::Util qw(blessed); sub BEFORE_PLUGIN { @@ -12,18 +13,17 @@ sub BEFORE_PLUGIN { } has complete_session => ( - metaclass => 'String', + traits => ['String'], is => 'rw', isa => 'Str', lazy => 1, default => '', - provides => { - append => 'add_to_session', + handles => { + add_to_session => 'append', }, ); has paste_title => ( - metaclass => 'String', is => 'rw', isa => 'Str', lazy => 1, @@ -116,7 +116,7 @@ the nopaste site. For example: C<#pastetitle example of some code> -defaults to 'Devel::REPL session' +defaults to C<'Devel::REPL session'>. =head1 CONFIGURATION @@ -134,7 +134,7 @@ The default of commenting out the output would be set like this: C<< $_REPL->nopaste_format( 'comment_output' ); >> -These options can be set during a Devel::REPL session, but only affect +These options can be set during a L session, but only affect the future parts of the session, not the past parts. =head1 AUTHOR