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=42bfd42cbc93952acde146a6e02cae521505f725;hp=9afa2be7d2855ed6cdef3d4891167d0e16a209b4;hb=9d2a4940f5958d82828272364ef754e9290b6113;hpb=784530113a2b8f94299b9682d9d9d6ddedacb227 diff --git a/lib/Devel/REPL/Plugin/History.pm b/lib/Devel/REPL/Plugin/History.pm index 9afa2be..42bfd42 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.003027'; 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 -