summaryrefslogtreecommitdiff
path: root/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-06-08 17:30:55 +0200
committerfranck cuny <franck@lumberjaph.net>2010-06-08 17:30:55 +0200
commite93d262aabcf66e9c103dccb5a4a3eeb00316aee (patch)
tree213e7c6413b80e76c183fe1eaac3e21759fbba41 /lib/Net/HTTP/Console/Dispatcher/HTTP.pm
parentmove code to appropriate role (diff)
downloadnet-http-console-e93d262aabcf66e9c103dccb5a4a3eeb00316aee.tar.gz
add dispatcher for viewing content; update help
Diffstat (limited to '')
-rw-r--r--lib/Net/HTTP/Console/Dispatcher/HTTP.pm8
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/Net/HTTP/Console/Dispatcher/HTTP.pm b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
index 5dc5719..c0e24ae 100644
--- a/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
+++ b/lib/Net/HTTP/Console/Dispatcher/HTTP.pm
@@ -7,7 +7,7 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
use Try::Tiny;
method pattern($input) {
- $input =~ /^(?:GET|POST|PUT|DELETE|HEAD|show)\s/ ? return $input : return 0;
+ $input =~ /^(?:GET|POST|PUT|DELETE|HEAD)\s/ ? return $input : return 0;
}
method dispatch($input) {
@@ -20,10 +20,6 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
elsif (($method, $path, $body) = $input =~ /^(POST|PUT)\s(.*)(?:\s(.*))$/) {
$self->_do_request_with_body($method, $path, $body);
}
- elsif ($input =~ /^show\s(headers|content)$/) {
- my $method = "_show_last_$1";
- $self->application->$method;
- }
else {
# XXX unsupporter method
}
@@ -36,7 +32,7 @@ class Net::HTTP::Console::Dispatcher::HTTP with Net::HTTP::Console::Dispatcher {
my ($content, $result) = $self->application->api_object->anonymous;
$self->application->_set_and_show($content, $result);
}catch{
- warn $_;
+ # XXX error
};
}