merge

1 files changed, 81 insertions, 0 deletions

diff --git a/bin/http-console b/bin/http-console
new file mode 100644
index 0000000..1fd4fd3
--- /dev/null
+++ b/bin/http-console
@@ -0,0 +1,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\-d\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";
+        }
+    }
+}