X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=blobdiff_plain;f=lib%2FDevel%2FREPL%2FPlugin%2FReadLineHistory.pm;fp=lib%2FDevel%2FREPL%2FPlugin%2FReadLineHistory.pm;h=051e37d563331e93cf1eff8a7657b0b8a538e853;hp=0000000000000000000000000000000000000000;hb=9d03fe0437b57edb434fa6a6f8bfee8723f58379;hpb=48ddfeae8a9840b39113a97c4889bfe210509cdd

diff --git a/lib/Devel/REPL/Plugin/ReadLineHistory.pm b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
new file mode 100644
index 0000000..051e37d
--- /dev/null
+++ b/lib/Devel/REPL/Plugin/ReadLineHistory.pm
@@ -0,0 +1,29 @@
+# First cut at using the readline history directly rather than reimplementing
+# it. It does save history but it's a little crappy; still playing with it ;)
+# 
+# epitaph, 22nd April 2007
+
+package Devel::REPL::Plugin::ReadLineHistory;
+
+use Moose::Role;
+
+my $hist_file=$ENV{PERLREPL_HISTFILE} ||
+             (($ENV{HOME} || (getpwuid($<))[7]) . "/.perlreplhist");
+# HISTLEN should probably be in a config file to stop people accidentally
+# truncating their history if they start the program and forget to set
+# PERLREPL_HISTLEN
+my $hist_len=$ENV{PERLREPL_HISTLEN} || 100;
+
+around 'run' => sub {
+  my $orig=shift;
+  my ($self, @args)=@_;
+  $self->term->stifle_history($hist_len);
+  -f($hist_file) && $self->term->ReadHistory($hist_file);
+  $self->term->Attribs->{do_expand}=1;
+  $self->$orig(@args);
+  $self->term->WriteHistory($hist_file) ||
+    $self->print("warning: failed to write history file $hist_file");
+};
+
+1;
+