[p5sagit/Devel-REPL.git] / lib / Devel / REPL / Plugin / ReadLineHistory.pm

# 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 Devel::REPL::Plugin;

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;

__END__

=head1 NAME

Devel::REPL::Plugin::ReadLineHistory - Integrate history with the facilities provided by L<Term::ReadLine>

=cut
Commit	Line	Data
9d03fe04	1	# First cut at using the readline history directly rather than reimplementing
	2	# it. It does save history but it's a little crappy; still playing with it ;)
	3	#
	4	# epitaph, 22nd April 2007
	5
	6	package Devel::REPL::Plugin::ReadLineHistory;
	7
6a5409bc	8	use Devel::REPL::Plugin;
9d03fe04	9
	10	my $hist_file=$ENV{PERLREPL_HISTFILE} \|\|
	11	(($ENV{HOME} \|\| (getpwuid($<))[7]) . "/.perlreplhist");
	12	# HISTLEN should probably be in a config file to stop people accidentally
	13	# truncating their history if they start the program and forget to set
	14	# PERLREPL_HISTLEN
	15	my $hist_len=$ENV{PERLREPL_HISTLEN} \|\| 100;
	16
	17	around 'run' => sub {
	18	my $orig=shift;
	19	my ($self, @args)=@_;
	20	$self->term->stifle_history($hist_len);
	21	-f($hist_file) && $self->term->ReadHistory($hist_file);
	22	$self->term->Attribs->{do_expand}=1;
	23	$self->$orig(@args);
	24	$self->term->WriteHistory($hist_file) \|\|
	25	$self->print("warning: failed to write history file $hist_file");
	26	};
	27
	28	1;
	29
cfd1094b	30	__END__
	31
	32	=head1 NAME
	33
	34	Devel::REPL::Plugin::ReadLineHistory - Integrate history with the facilities provided by L<Term::ReadLine>
	35
	36	=cut
	37