From 548f1a38f43a1b5da435b3a7c778f5ec3471f2f2 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Tue, 8 Jun 2010 13:18:38 +0200 Subject: update regex; modify http methods; .. --- lib/Net/HTTP/Console/Role/DefaultMethod.pm | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 lib/Net/HTTP/Console/Role/DefaultMethod.pm (limited to 'lib/Net/HTTP/Console/Role/DefaultMethod.pm') 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; -- cgit v1.2.3