summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Role/DefaultMethod.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-08 13:18:38 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-08 13:18:38 +0200
commit548f1a38f43a1b5da435b3a7c778f5ec3471f2f2 (patch)
tree4b36535807ec253033bc6f4ba0f259e62c74d1f6 /lib/Net/HTTP/Console/Role/DefaultMethod.pm
parentupdate name of api methods; fetch doc from method (diff)
downloadnet-http-console-548f1a38f43a1b5da435b3a7c778f5ec3471f2f2.tar.gz
update regex; modify http methods; ..
Diffstat (limited to '')
-rw-r--r--lib/Net/HTTP/Console/Role/DefaultMethod.pm20
1 files changed, 0 insertions, 20 deletions
diff --git a/lib/Net/HTTP/Console/Role/DefaultMethod.pm b/lib/Net/HTTP/Console/Role/DefaultMethod.pm
deleted file mode 100644
index c8f858e..0000000
--- a/lib/Net/HTTP/Console/Role/DefaultMethod.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-package Net::HTTP::Console::Role::DefaultMethod;
-
-use Moose::Role;
-use JSON;
-use Method::Signatures::Simple;
-use namespace::autoclean;
-
-with qw/Net::HTTP::Console::Role::HTTP/;
-
-method from_lib {
- my $input = shift;
- $input =~ /^(\w+)\s(.*)$/;
- my $method = $1;
- my $args = $2;
- my $o = $self->lib->new();
- my ($content, $response) = $o->$method(%{JSON::decode_json($args)});
- $self->_set_and_show($content, $response);
-}
-
-1;