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=fe35ca80de772287660dd5da84d1863977567de7;hp=accba68085865d4189f95df518b575ad6601ba05;hb=c45376f3de16a5a467a1a26e63a279f30eb8672d;hpb=8d3a08168a12af4e191b519b19c5905de964181f

diff --git a/lib/Devel/REPL/Plugin/Nopaste.pm b/lib/Devel/REPL/Plugin/Nopaste.pm
index accba68..fe35ca8 100644
--- a/lib/Devel/REPL/Plugin/Nopaste.pm
+++ b/lib/Devel/REPL/Plugin/Nopaste.pm
@@ -1,9 +1,13 @@
+use strict;
+use warnings;
 package Devel::REPL::Plugin::Nopaste;
+# ABSTRACT: #nopaste to upload session's input and output
+
+our $VERSION = '1.003029';
 
 use Devel::REPL::Plugin;
-use MooseX::AttributeHelpers;
-use Moose::Util::TypeConstraints;
-use namespace::clean -except => [ 'meta' ];
+use Moose::Util::TypeConstraints 'enum';
+use namespace::autoclean;
 use Scalar::Util qw(blessed);
 
 sub BEFORE_PLUGIN {
@@ -12,13 +16,13 @@ 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',
     },
 );
 
@@ -95,9 +99,7 @@ sub command_pastetitle {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Nopaste - #nopaste to upload session's input and output
+=pod
 
 =head1 COMMANDS
 
@@ -115,7 +117,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
 
@@ -133,7 +135,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<Devel::REPL> session, but only affect
 the future parts of the session, not the past parts.
 
 =head1 AUTHOR
@@ -149,4 +151,3 @@ Shawn M Moore, C<< <sartak at gmail dot com> >>
 =back
 
 =cut
-