From bbba71fb8cd3327e0a8b8405a0a201d49999cfc1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 30 May 2013 00:16:57 -0500
Subject: a few plugins

---
 lib/App/REPL/Plugin/ReadLine.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 lib/App/REPL/Plugin/ReadLine.pm

(limited to 'lib/App/REPL/Plugin/ReadLine.pm')

diff --git a/lib/App/REPL/Plugin/ReadLine.pm b/lib/App/REPL/Plugin/ReadLine.pm
new file mode 100644
index 0000000..f2fe847
--- /dev/null
+++ b/lib/App/REPL/Plugin/ReadLine.pm
@@ -0,0 +1,25 @@
+package App::REPL::Plugin::ReadLine;
+use strict;
+use warnings;
+
+use base 'App::REPL::Plugin';
+
+use Term::ReadLine;
+
+sub new {
+    my $class = shift;
+
+    my $self = $class->SUPER::new(@_);
+    $self->{term} = Term::ReadLine->new('App::REPL');
+
+    return $self;
+}
+
+sub read_line {
+    my $self = shift;
+    my ($next, $prompt) = @_;
+
+    return $self->{term}->readline($prompt);
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf