summary refs log tree commit diff
path: root/bin/http-console
blob: 25aaad86e44fda2c9a9d15b5a65cd369795b88f1 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
use strict;
use warnings;
use 5.010;

use Term::ReadLine;
use Getopt::Long;
use YAML::Syck;

my $url         = shift;
my $format_mode = 'append';
my $format      = 'json';

GetOptions(
    'm=s' => \$format_mode,
    'f=s' => \$format,
);

package http::net::console;
use MooseX::Net::API;

package main;

my ($content, $result);

my $term   = Term::ReadLine->new("http::net::console");
my $prompt = $url . '> ';
while (defined(my $in = $term->readline($prompt))) {
    if ($in =~ /^(GET|DELETE)\s(.*)$/) {
        my $http_console = http::net::console->new(
            api_base_url    => $url,
            api_format      => $format,
            api_format_mode => $format_mode
        );
        $http_console->meta->add_net_api_method(
            'anonymous',
            method => $1,
            path   => $2
        );
        ($content, $result) = $http_console->anonymous;
        say $result->content;
    }
    elsif ($in =~ /^(POST|PUT)\s(.*)(?:\s(.*))$/) {
        my $method       = $1;
        my $path         = $2;
        my $data         = $3;
        my $http_console = http::net::console->new(
            api_base_url    => $url,
            api_format      => $format,
            api_format_mode => $format_mode,
        );
        $http_console->meta->add_net_api_method(
            'anonymous',
            method => $method,
            path   => $path
        );
        $http_console->api_useragent->add_handler(
            request_prepare => sub {
                my $request = shift;
                $request->content($data);
            }
        );
        ($content, $result) = $http_console->anonymous;
        say $result->content;
    }
    elsif ($in eq 'show headers') {
        if (defined $result) {
            say Dump $result->headers;
        }
        else {
            say "no headers to show";
        }
    }
    elsif ($in eq 'show content') {
        if (defined $content) {
            say Dump $result->content;
        }
        else {
            say "no content to show";
        }
    }
}