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/ExecuteMethod.pm | 25 ------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm

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

diff --git a/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm b/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm
deleted file mode 100644
index 12a66e4..0000000
--- a/lib/Net/HTTP/Console/Dispatcher/ExecuteMethod.pm
+++ /dev/null
@@ -1,25 +0,0 @@
-package Net::HTTP::Console::Dispatcher::ExecuteMethod;
-
-use Moose;
-with qw/Net::HTTP::Console::Dispatcher/;
-
-sub dispatch {
-    my ($self, $input) = @_;
-    (my $method, my $args) = $input =~ /^(\w+)\s(.*)$/;
-    my ($content, $response) =
-      $self->application->api_object->$method(%{JSON::decode_json($args)});
-    $self->application->_set_and_show($content, $response);
-    1;
-}
-
-sub pattern {
-    my ($self, $input) = @_;
-    (my $method) = $input =~ /^(\w+)/;
-
-    # XXX find_api_method_by_name ?
-    $self->application->api_object->meta->find_method_by_name($method)
-      ? return $input
-      : return 0;
-}
-
-1;
-- 
cgit 1.4.1