From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 31 Oct 2012 20:14:03 +0000 (-0400)
Subject: use native traits instead of MXAH
X-Git-Tag: v1.003015~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bf7245015d1b51f0c798f46e4ca3d823caab814;p=p5sagit%2FDevel-REPL.git

use native traits instead of MXAH
---

diff --git a/Makefile.PL b/Makefile.PL
index 7b560e0..cf85e89 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,10 +13,9 @@ requires 'File::Spec';
 requires 'Term::ReadLine';
 
 # rest
-requires 'Moose' => '0.74';
+requires 'Moose' => '0.93';
 requires 'MooseX::Object::Pluggable' => '0.0009';
 requires 'MooseX::Getopt' => '0.18';
-requires 'MooseX::AttributeHelpers' => '0.16';
 requires 'namespace::clean';
 requires 'File::HomeDir';
 requires 'Task::Weaken';
diff --git a/lib/Devel/REPL.pm b/lib/Devel/REPL.pm
index 2e69891..c48529e 100644
--- a/lib/Devel/REPL.pm
+++ b/lib/Devel/REPL.pm
@@ -374,10 +374,6 @@ L<MooseX::Getopt> >= 0.18
 
 =item *
 
-L<MooseX::AttributeHelpers> >= 0.16
-
-=item *
-
 L<namespace::clean>
 
 =item *
diff --git a/lib/Devel/REPL/Plugin/Nopaste.pm b/lib/Devel/REPL/Plugin/Nopaste.pm
index accba68..16fcd8f 100644
--- a/lib/Devel/REPL/Plugin/Nopaste.pm
+++ b/lib/Devel/REPL/Plugin/Nopaste.pm
@@ -1,7 +1,6 @@
 package Devel::REPL::Plugin::Nopaste;
 
 use Devel::REPL::Plugin;
-use MooseX::AttributeHelpers;
 use Moose::Util::TypeConstraints;
 use namespace::clean -except => [ 'meta' ];
 use Scalar::Util qw(blessed);
@@ -17,8 +16,8 @@ has complete_session => (
     isa       => 'Str',
     lazy      => 1,
     default   => '',
-    provides  => {
-        append => 'add_to_session',
+    handles  => {
+        add_to_session => 'append',
     },
 );
 
diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm
index 0ae8299..ba26705 100644
--- a/lib/Devel/REPL/Plugin/Turtles.pm
+++ b/lib/Devel/REPL/Plugin/Turtles.pm
@@ -3,8 +3,6 @@ use Devel::REPL::Plugin;
 
 use Scalar::Util qw(reftype);
 
-use MooseX::AttributeHelpers;
-
 use namespace::clean -except => [ 'meta' ];
 
 has default_command_prefix => (
@@ -19,8 +17,8 @@ has turtles_matchers => (
   is  => "rw",
   lazy => 1,
   default => sub { my $prefix = shift->default_command_prefix; [qr/^ $prefix (\w+) \s* (.*) /x] },
-  provides => {
-    unshift => "add_turtles_matcher",
+  handles => {
+    add_turtles_matcher => 'unshift',
   },
 );