From: Sartak <Sartak@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Tue, 12 Aug 2008 10:35:00 +0000 (+0000)
Subject:  r69325@onn:  sartak | 2008-08-12 06:34:42 -0400
X-Git-Tag: v1.003015~80
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4ea2c25425ec86ef71282ea6f5a04f153e3648ed;p=p5sagit%2FDevel-REPL.git

 r69325@onn:  sartak | 2008-08-12 06:34:42 -0400
 Don't initialize a turtles matcher if we don't need to


git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@4748 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm
index c412237..b53a3c1 100644
--- a/lib/Devel/REPL/Plugin/Turtles.pm
+++ b/lib/Devel/REPL/Plugin/Turtles.pm
@@ -17,6 +17,7 @@ has turtles_matchers => (
   metaclass => "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",