r69325@onn: sartak | 2008-08-12 06:34:42 -0400
Sartak [Tue, 12 Aug 2008 10:35:00 +0000 (10:35 +0000)]
 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

lib/Devel/REPL/Plugin/Turtles.pm

index c412237..b53a3c1 100644 (file)
@@ -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",