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;fp=lib%2FDevel%2FREPL%2FPlugin%2FHistory.pm;h=1c51efbc7d063d2f20e5204cd634124fe3d6ff30;hp=0000000000000000000000000000000000000000;hb=80fa249ceafd5a1955f4c838dbd16b941b558e58;hpb=e958cbc628b42fa7a2ed91d34e097d2224b77197

diff --git a/lib/Devel/REPL/Plugin/History.pm b/lib/Devel/REPL/Plugin/History.pm
new file mode 100644
index 0000000..1c51efb
--- /dev/null
+++ b/lib/Devel/REPL/Plugin/History.pm
@@ -0,0 +1,51 @@
+package Devel::REPL::Plugin::History;
+
+use Moose::Role;
+
+has 'history' => (
+  isa => 'ArrayRef', is => 'rw', required => 1, lazy => 1,
+  default => sub { [] }
+);
+
+sub push_history {
+  my ($self, $line) = @_;
+  push(@{$self->history}, $line);
+}
+
+around 'read' => sub {
+  my $orig = shift;
+  my ($self, @args) = @_;
+  my $line = $self->$orig(@args);
+  if (defined $line) {
+    if ($line =~ m/^!(.*)$/) {
+      my $call = $1;
+      $line = $self->history_call($call);
+      if (defined $line) {
+        $self->print($line."\n");
+      } else {
+        return "'Unable to find ${call} in history'";
+      }
+    }
+    if ($line =~ m/\S/) {
+      $self->push_history($line);
+    }
+  }
+  return $line;
+};
+
+sub history_call {
+  my ($self, $call) = @_;
+  if ($call =~ m/^(-?\d+)$/) { # handle !1 or !-1
+    my $idx = $1;
+    $idx-- if ($idx > 0); # !1 gets history element 0
+    my $line = $self->history->[$idx];
+    return $line;
+  }
+  my $re = qr/^\Q${call}\E/;
+  foreach my $line (reverse @{$self->history}) {
+    return $line if ($line =~ $re);
+  }
+  return;
+};
+
+1;