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=18c02bc971295366fcd8b7be2fb1f11c0e0a88cb;hp=ba26705f6537190f7170e000afc3ba6b8373a3cd;hb=master;hpb=8bf7245015d1b51f0c798f46e4ca3d823caab814 diff --git a/lib/Devel/REPL/Plugin/Turtles.pm b/lib/Devel/REPL/Plugin/Turtles.pm index ba26705..18c02bc 100644 --- a/lib/Devel/REPL/Plugin/Turtles.pm +++ b/lib/Devel/REPL/Plugin/Turtles.pm @@ -1,9 +1,13 @@ +use strict; +use warnings; package Devel::REPL::Plugin::Turtles; -use Devel::REPL::Plugin; +# ABSTRACT: Generic command creation using a read hook -use Scalar::Util qw(reftype); +our $VERSION = '1.003030'; -use namespace::clean -except => [ 'meta' ]; +use Devel::REPL::Plugin; +use Scalar::Util qw(reftype); +use namespace::autoclean; has default_command_prefix => ( isa => "RegexpRef", @@ -12,7 +16,7 @@ has default_command_prefix => ( ); has turtles_matchers => ( - metaclass => "Collection::Array", + traits => ['Array'], isa => "ArrayRef[RegexpRef|CodeRef]", is => "rw", lazy => 1, @@ -69,9 +73,7 @@ sub match_turtles { __END__ -=head1 NAME - -Devel::REPL::Plugin::Turtles - Generic command creation using a read hook +=pod =head1 DESCRIPTION @@ -88,4 +90,3 @@ if other uses for that character are needed (e.g., '#' for the shell escape character in the PDL shell. =cut -