X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FHistory.pm;h=31baf26adb7de3bd49ed2f2fc71d885df1c22dc1;hp=9afa2be7d2855ed6cdef3d4891167d0e16a209b4;hb=77327851f87a17466307e8fccdbf2e0d3c2e58dc;hpb=784530113a2b8f94299b9682d9d9d6ddedacb227 diff --git a/lib/Devel/REPL/Plugin/History.pm b/lib/Devel/REPL/Plugin/History.pm index 9afa2be..31baf26 100644 --- a/lib/Devel/REPL/Plugin/History.pm +++ b/lib/Devel/REPL/Plugin/History.pm @@ -1,16 +1,23 @@ +use strict; +use warnings; package Devel::REPL::Plugin::History; +# ABSTRACT: Keep track of all input, provide shortcuts !1, !-1 + +our $VERSION = '1.003030'; use Devel::REPL::Plugin; -use namespace::clean -except => [ 'meta' ]; +use namespace::autoclean; has 'history' => ( - isa => 'ArrayRef', is => 'rw', required => 1, lazy => 1, + isa => 'ArrayRef', is => 'rw', + lazy => 1, default => sub { [] } ); # lazy so ReadLineHistory Plugin can set this has 'have_readline_history' => ( - is => 'rw', required => 1, lazy => 1, + is => 'rw', + lazy => 1, default => sub { 0 } ); @@ -65,12 +72,3 @@ sub history_call { }; 1; - -__END__ - -=head1 NAME - -Devel::REPL::Plugin::History - Keep track of all input, provide shortcuts !1, !-1 - -=cut -