[Bast-commits] r3206 - trunk/Devel-REPL/lib/Devel/REPL/Plugin

[epitaph at dev.catalyst.perl.org]

Author: epitaph
Date: 2007-04-23 00:08:29 +0100 (Mon, 23 Apr 2007)
New Revision: 3206

Added:
   trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm
Log:
Added ReadlineHistory plugin - does history using readline directly



Added: trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm
===================================================================
--- trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm	                        (rev 0)
+++ trunk/Devel-REPL/lib/Devel/REPL/Plugin/ReadLineHistory.pm	2007-04-22 23:08:29 UTC (rev 3206)
@@ -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;
+