From 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 8 Jun 2010 15:22:36 +0200
Subject: switch to MX::Declare; rename some roles and dispatcher

---
 lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm | 78 --------------------------
 1 file changed, 78 deletions(-)
 delete mode 100644 lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm

(limited to 'lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm')

diff --git a/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm b/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm
deleted file mode 100644
index ec8892f..0000000
--- a/lib/Net/HTTP/Console/Dispatcher/HTTPRequest.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-package Net::HTTP::Console::Dispatcher::HTTPRequest;
-
-use Moose;
-use Try::Tiny;
-
-with qw/ Net::HTTP::Console::Dispatcher /;
-
-sub _clean_http_lib {
-    my $self = shift;
-    if ($self->application->lib eq "Net::HTTP::Console::Dummy") {
-        map { $self->application->lib->meta->remove_net_api_method($_) }
-          $self->application->lib->meta->get_all_api_methods();
-    }
-}
-
-sub dispatch {
-    my ($self, $input) = @_;
-
-    $self->_clean_http_lib;
-
-    if ($input =~ /^(GET|DELETE)\s(.*)$/) {
-        $self->_do_request($1, $2);
-    }
-    elsif ($input =~ /^(POST|PUT)\s(.*)(?:\s(.*))$/) {
-        $self->_do_request_with_body($1, $2, $3);
-    }
-    elsif ($input =~ /^show\s(headers|content)$/) {
-        my $method = "_show_last_$1";
-        $self->application->$method;
-    }
-    else {
-
-        # XXX unsupporter method
-    }
-    return 1;
-}
-
-sub pattern {
-    my ($self, $input) = @_;
-    $input =~ /^(?:GET|POST|PUT|DELETE|HEAD|show)\s/ ? return $input : return 0;
-}
-
-sub _do_request {
-    my ($self, $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 $_;
-    };
-}
-
-sub _do_request_with_body {
-    my ($self, $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;
-    };
-}
-
-no Moose;
-
-1;
-- 
cgit v1.2.3