diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-08 13:18:38 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-08 13:18:38 +0200 |
| commit | 548f1a38f43a1b5da435b3a7c778f5ec3471f2f2 (patch) | |
| tree | 4b36535807ec253033bc6f4ba0f259e62c74d1f6 /lib/Net/HTTP/Console/Role/DefaultMethod.pm | |
| parent | update name of api methods; fetch doc from method (diff) | |
| download | net-http-console-548f1a38f43a1b5da435b3a7c778f5ec3471f2f2.tar.gz | |
update regex; modify http methods; ..
Diffstat (limited to '')
| -rw-r--r-- | lib/Net/HTTP/Console/Role/DefaultMethod.pm | 20 |
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; |
