X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FTurtles.pm;h=b53a3c15311c485ecdd751ae1a6f36ab93ba7c34;hp=8bcba92644507b6f0d045e882c6e3d7d3c319e93;hb=4ea2c25425ec86ef71282ea6f5a04f153e3648ed;hpb=e22aa835df762f888ec7ff9efb2a599ebe17538e diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm index 8bcba92..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", @@ -67,3 +68,12 @@ sub match_turtles { } 1; + +__END__ + +=head1 NAME + +Devel::REPL::Plugin::Turtles - Generic command creation using a read hook + +=cut +