bin/http-console


1
2
3
4
5
6
7
8
9
10
11
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);
}