switch to MX::Declare; rename some roles and dispatcher

1 files changed, 73 insertions, 0 deletions

diff --git a/lib/Net/HTTP/Console/Dispatcher/HTTP.pm b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
new file mode 100644
index 0000000..789c04c
--- /dev/null
+++ b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
@@ -0,0 +1,73 @@
+package Net::HTTP::Console::Dispatcher::HTTP;
+
+use MooseX::Declare;
+
+class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
+
+    use Try::Tiny;
+
+    method pattern($input) {
+        $input =~ /^(?:GET|POST|PUT|DELETE|HEAD|show)\s/ ? return $input : return 0;
+    }
+
+    method dispatch($input) {
+        $self->_clean_http_lib;
+
+        my ($method, $path, $body);
+        if (($method, $path) = $input =~ /^(GET|DELETE)\s(.*)$/) {
+            $self->_do_request($method, $path);
+        }
+        elsif (($method, $path, $body) = $input =~ /^(POST|PUT)\s(.*)(?:\s(.*))$/) {
+            $self->_do_request_with_body($method, $path, $body);
+        }
+        elsif ($input =~ /^show\s(headers|content)$/) {
+            my $method = "_show_last_$1";
+            $self->application->$method;
+        }
+        else {
+            # XXX unsupporter method
+        }
+        return 1;
+    }
+
+
+    method _do_request($http_method, $path) {
+        $self->application->new_anonymous_method($http_method, $path);
+        try {
+            my ($content, $result) = $self->application->api_object->anonymous;
+            $self->application->_set_and_show($content, $result);
+        }catch{
+            warn $_;
+        };
+    }
+
+    method _clean_http_lib {
+        if ($self->application->api_lib eq "Net::HTTP::Console::Dummy") {
+            map { $self->application->api_lib->meta->remove_net_api_method($_) }
+              $self->application->api_lib->meta->get_all_net_api_methods();
+        }
+    }
+
+    method _do_request_with_body($http_method, $path, $body) {
+        $self->application->new_anonymous_method($http_method, $path);
+
+        # XXX clean handlers
+        $self->application->api_object->api_useragent->add_handler(
+            request_prepare => sub {
+                my $request = shift;
+                $request->header('Content-Type' => 'application/json');
+                $request->content('{"foof":"bar"}');
+            }
+        );
+        try {
+            my ($content, $result) = $self->application->api_object->anonymous;
+            $self->application->_set_and_show($content, $result);
+        }catch{
+            warn $_;
+            use YAML::Syck;
+            warn Dump $_->http_error;
+        };
+    }
+}
+
+1;