From: epitaph <epitaph@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Sun, 22 Apr 2007 23:08:29 +0000 (+0000)
Subject: Added ReadlineHistory plugin - does history using readline directly
X-Git-Tag: v1.003015~170
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d03fe0437b57edb434fa6a6f8bfee8723f58379;p=p5sagit%2FDevel-REPL.git

Added ReadlineHistory plugin - does history using readline directly



git-svn-id: http://dev.catalyst.perl.org/repos/bast/trunk/Devel-REPL@3206 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

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;
+