Port from MXAH to native traits.

[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / Turtles.pm

diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm
index 8bcba92..89cd53b 100644 (file)
--- 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 => (
@@ -14,9 +12,10 @@ has default_command_prefix => (
 );
 
 has turtles_matchers => (
-  metaclass => "Collection::Array",
+  traits => ["Collection::Array"],
   isa => "ArrayRef[RegexpRef|CodeRef]",
   is  => "rw",
+  lazy => 1,
   default => sub { my $prefix = shift->default_command_prefix; [qr/^ $prefix (\w+) \s* (.*) /x] },
   provides => {
     unshift => "add_turtles_matcher",
@@ -67,3 +66,12 @@ sub match_turtles {
 }
 
 1;
+
+__END__
+
+=head1 NAME
+
+Devel::REPL::Plugin::Turtles - Generic command creation using a read hook
+
+=cut
+