From 6754c25c01c202ff788ffba6265d98b4b75f4db4 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 6 Jun 2010 16:52:32 +0200
Subject: initial commit

---
 bin/http-console | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 bin/http-console

(limited to 'bin/http-console')

diff --git a/bin/http-console b/bin/http-console
new file mode 100644
index 0000000..e579945
--- /dev/null
+++ b/bin/http-console
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+
+use Term::ReadLine;
+use Net::HTTP::Console;
+
+my $console = Net::HTTP::Console->new_with_options();
+
+my $term = Term::ReadLine->new("http::net::console");
+while (defined(my $in = $term->readline($console->prompt))) {
+    $console->dispatch($in);
+}
-- 
cgit v1.2.3